|
|
一、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)
二、TabStop对象
代表单个制表位。TabStop 对象是 TabStops 集合的成员。TabStops 集合代表标尺上的所有制表位。
使用 Tabstop 对象
使用 TabStops(index) 返回单个 TabStop 对象，其中 index 为制表位的索引号。以下示例清除当前演示文稿第一张幻灯片第二个形状文本的第一个制表位。
ActivePresentation.Slides(1).Shapes(2).TextFrame _
.Ruler.TabStops(1).Clear
三、TabStops集合对象
标尺上所有 TabStop 对象的集合。
使用 TabStops 集合
使用 TabStops 属性返回 TabStops 集合。以下示例清除当前演示文稿第一张幻灯片第二个形状中文本的所有制表位。
With ActivePresentation.Slides(1).Shapes(2) _
.TextFrame.Ruler.TabStops
For t = .Count To 1 Step -1
.Item(t).Clear
Next
End With
使用 Add 方法创建制表位并添加到 TabStops 集合。以下示例将制表位添加到当前演示文稿幻灯片母版的正文文本样式中。新制表位在距标尺左边缘 2 英寸（144 磅）处，且为左对齐。
ActivePresentation.SlideMaster _
.TextStyles(ppBodyStyle).Ruler.TabStops.Add ppTabStopLeft, 144
|
|
