Question

在 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