大众计算机学习网

专门提供各种电脑教程

Table、TabStop和TabStops在PPT编程中的范例

Admin | 2013-9-26 17:19:33 | 被阅次数 | 4502

  一、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