Excel数据复制到PPT并设置表格样式 - VBA代码示例

将Excel数据复制到PPT并设置表格样式 - VBA代码示例

本教程将向您展示如何使用VBA代码将Excel数据复制到新的PPT幻灯片中，并设置表格样式，包括字体、边框、大小等。

代码内容：

Sub CopyExcelToPPT()
    Dim ppt As Object
    Dim slide As Object
    Dim shape As Object
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim table As Object
    Dim i As Integer

    Set ppt = CreateObject('PowerPoint.Application')
    ppt.Visible = True
    Set slide = ppt.Presentations.Add.Slides.Add(1, 11)
    Set shape = slide.Shapes.AddTable(5, 5, 400, 300)

    Set wb = ThisWorkbook
    Set ws = wb.Sheets('Sheet1')
    Set rng = ws.Range('A1:E5')

    For i = 1 To rng.Rows.Count
        shape.Table.Cell(i, 1).Shape.TextFrame.TextRange.Text = rng.Cells(i, 1).Value
        shape.Table.Cell(i, 2).Shape.TextFrame.TextRange.Text = rng.Cells(i, 2).Value
        shape.Table.Cell(i, 3).Shape.TextFrame.TextRange.Text = rng.Cells(i, 3).Value
        shape.Table.Cell(i, 4).Shape.TextFrame.TextRange.Text = rng.Cells(i, 4).Value
        shape.Table.Cell(i, 5).Shape.TextFrame.TextRange.Text = rng.Cells(i, 5).Value
    Next i

    Set table = shape.Table
    table.Columns(1).Width = 50
    table.Columns(2).Width = 100
    table.Columns(3).Width = 100
    table.Columns(4).Width = 100
    table.Columns(5).Width = 50
    table.Rows.Height = 30

    table.Borders.Weight = 0.5
    table.Borders.Color = RGB(0, 0, 0)
    table.Rows(1).Borders.Weight = 1.5
    table.Rows(1).Borders.Color = RGB(128, 128, 128)

    table.Cell(1, 1).Shape.TextFrame.TextRange.Font.Name = 'Arial Narrow'
    table.Cell(1, 2).Shape.TextFrame.TextRange.Font.Name = 'Arial Narrow'
    table.Cell(1, 3).Shape.TextFrame.TextRange.Font.Name = 'Arial Narrow'
    table.Cell(1, 4).Shape.TextFrame.TextRange.Font.Name = 'Arial Narrow'
    table.Cell(1, 5).Shape.TextFrame.TextRange.Font.Name = 'Arial Narrow'

    table.Cell(1, 1).Shape.TextFrame.TextRange.Font.Size = 10
    table.Cell(1, 2).Shape.TextFrame.TextRange.Font.Size = 10
    table.Cell(1, 3).Shape.TextFrame.TextRange.Font.Size = 10
    table.Cell(1, 4).Shape.TextFrame.TextRange.Font.Size = 10
    table.Cell(1, 5).Shape.TextFrame.TextRange.Font.Size = 10

End Sub

代码说明：

1. 创建PPT对象：Set ppt = CreateObject('PowerPoint.Application') 创建PPT对象并使其可见。
2. 添加幻灯片：Set slide = ppt.Presentations.Add.Slides.Add(1, 11) 添加一个新的幻灯片，布局为11。
3. 添加表格：Set shape = slide.Shapes.AddTable(5, 5, 400, 300) 添加一个5行5列的表格，大小为400x300。
4. 读取Excel数据：Set wb = ThisWorkbook, Set ws = wb.Sheets('Sheet1'), Set rng = ws.Range('A1:E5') 从Excel工作簿中读取数据。
5. 填充表格数据：使用循环将Excel数据填充到表格中。
6. 设置表格样式：
   • 设置表格列宽和行高。
   • 设置表格边框：外边框黑色0.5磅，第一行内边框深灰色1.5磅。
   • 设置表格字体：Arial Narrow，大小10号。

使用步骤：

1. 打开包含数据的Excel文件。
2. 按下Alt+F11键打开VBA编辑器。
3. 在VBA编辑器中插入一个模块。
4. 将上面的代码复制到模块中。
5. 修改代码中Excel工作簿名称和数据区域。
6. 运行代码。

代码运行后，Excel数据将会复制到新的PPT幻灯片中，并按照代码中的样式设置表格。

提示：

• 代码中的Excel工作簿名称和数据区域需要根据您的实际情况进行修改。
• 您可以根据需要修改表格的样式，例如边框颜色、字体大小等。
• 您也可以根据需要添加其他功能，例如添加标题、图表等。

希望本教程能够帮助您快速学会如何将Excel数据复制到PPT并设置表格样式。