使用表格

在 Microsoft PowerPoint 中，可以自己创建表格而无需从 Microsoft Word 中导入。表格是 Shapes 集合中的成员。表格中的每个单元格、列和行都是单独的可编程对象。

创建表格

使用 AddTable 方法可在幻灯片上创建表格。此方法会向 Shapes 集合中添加具有 NumRows 和 NumColumns 参数所指定的行数和列数的表格。本示例向第二张幻灯片中添加具有三行和四列的表格。

ActivePresentation.Slides(2).Shapes _
    .AddTable NumRows:=3, NumColumns:=4, Left:=10, _
    Top:=10, Width:=288, Height:=288

检测某形状是否为表格

在要处理表格中的内容或对象之前，首先必须了解正在使用的形状是否为表格。若要查看某形状是否为表格，请使用 HasTable 属性。例如，假定第一张幻灯片中有许多形状，且其中有一个是表格。而您希望调整此表格的大小，以使之能接受从其他来源所导入的数据。下面的代码将遍历第二张幻灯片上的 Shapes 集合以找到该表格并调整其列宽。

With ActivePresentation.Slides(2)
    For sh = 1 To .Shapes.Count
        If .Shapes(sh).HasTable Then
            For Each col In .Shapes(sh).Table.Columns
                col.Width = 110
            Next col
        End If
    Next
End With

使用单元格、列和行

若要返回单列或单行中的内容和属性，可使用 Columns 或 Rows 集合中的特定成员。Cell 方法可返回 Table 中的单个 Cell 对象。本示例将更改第二张幻灯片上第五个形状所代表的表格的各种不同属性。它更改第二行的颜色、第一列的宽度以及包含在第二行第一列单元格中的文本。

With ActivePresentation.Slides(2).Shapes(4).Table
    For Each cl In .Rows(2).Cells
        cl.Shape.Fill.ForeColor.RGB = RGB(50, 125, 0)
    Next cl
    .Columns(1).Width = 110
    .Cell(2, 1).Shape.TextFrame.TextRange.Text = "Mallard"
End With