使用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)