使用powerpoint的表对象

以下为basic范例，delphi使用需要加以修改

Table 对象

代表幻灯片上的表格形状。Table 对象是 Shapes 集合的成员。Table 对象包含 Columns 集合和 Rows 集合。

使用 Table 对象

使用 Shapes(index) 可返回一个包含表格的形状，其中 index 为一个数字。使用 HasTable 属性可查看形状是否包含表格。本示例将遍历第一张幻灯片上的形状，以查看是否每个形状都含有表格，然后为每个表格形状设置鼠标单击动作以前进到下一张幻灯片。

With ActivePresentation.Slides(2).Shapes
    For i = 1 To .Count
        If .Item(i).HasTable Then
            .Item(i).ActionSettings(ppMouseClick) _
                .Action = ppActionNextSlide
        End If
    Next
End With

使用 Table 对象的 Cell 方法可访问每个单元格的内容。本示例将文本“Cell 1”插入第三张幻灯片上第五个形状中表格的第一个单元格中。

ActivePresentation.Slides(3).Shapes(5).Table _
    .Cell(1, 1).Shape.TextFrame.TextRange _
    .Text = "Cell 1"

使用 AddTable 方法可将表格添加到幻灯片。本示例在活动演示文稿第二张幻灯片上添加一个 3x3 的表格。

ActivePresentation.Slides(2).Shapes.AddTable(3, 3)