在 Microsoft PowerPoint 中，表格是 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