大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

Ruler、RulerLevel和RulerLevels集合对象在幻灯片中的实例

Admin | 2013-8-21 8:12:59 | ReadNums | 1934 | 标签 PowerPoint教程 | 打印本页
     

  一、Ruler对象

  代表指定形状或指定样式中所有文本的标尺。包含大纲文本的制表位和缩进设置。

  使用 Ruler 对象

  使用 TextFrame 对象的 Ruler 属性返回代表指定形状中文本标尺的 Ruler 对象;使用 TabStops 属性返回 TabStops 对象,其中包含标尺中的制表位。使用 Levels 属性返回 RulerLevels 对象,该对象包含大纲文本的缩进设置。以下示例在 2 英寸(144 磅)处设置一个左对齐的制表位,并为当前演示文稿第一张幻灯片第二个对象中的文本设置悬挂式缩进。

  With ActivePresentation.Slides(1).Shapes(2).TextFrame.Ruler
      .TabStops.Add ppTabStopLeft, 144
      .Levels(1).FirstMargin = 0
      .Levels(1).LeftMargin = 36
  End With

  使用 TextStyle 对象的 Ruler 属性返回 Ruler 对象,该对象代表四种定义文本样式之一(标题文本、正文文本、备注文本、默认文本)的标尺。以下示例设置当前演示文稿幻灯片母版正文文本第一级大纲的首行缩进和悬挂式缩进。

  With ActivePresentation.SlideMaster _
         .TextStyles(ppBodyStyle).Ruler.Levels(1)
      .FirstMargin = 9
      .LeftMargin = 54
  End With

  二、RulerLevel对象

  包含大纲的首行缩进和悬挂式缩进信息。RulerLevel 对象是 RulerLevels 集合的成员。RulerLevels 集合包含五个可用大纲级别中每个级别的 RulerLevel 对象。

  使用 RulerLevel 对象

  使用 RulerLevels(index) 返回单个 RulerLevel 对象,其中 index 为大纲级别。以下示例设置当前演示文稿幻灯片母版正文文本第一级大纲的首行缩进和悬挂式缩进。

  With ActivePresentation.SlideMaster _
          .TextStyles(ppBodyStyle).Ruler.Levels(1)
      .FirstMargin = 9
      .LeftMargin = 54
  End With

  以下示例设置当前演示文稿第二个形状(第一张幻灯片中)第一级大纲的首行缩进和悬挂缩进。

  With ActivePresentation.SlideMaster.Shapes(2) _
          .TextFrame.Ruler.Levels(1)
      .FirstMargin = 9
      .LeftMargin = 54
  End With

  三、RulerLevels集合对象

  指定标尺上所有 RulerLevel 对象的集合。每个 RulerLevel 对象代表特定大纲级别上文本的首行缩进和左缩进。该集合通常包含五个成员(每个可用大纲级别各一个)。

 使用 RulerLevels 集合

  使用 Levels 属性返回 RulerLevels 集合。以下示例设置当前演示文稿正文文本五级大纲的页边距。

  With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler
      .Levels(1).FirstMargin = 0
      .Levels(1).LeftMargin = 40
      .Levels(2).FirstMargin = 60
      .Levels(2).LeftMargin = 100
      .Levels(3).FirstMargin = 120
      .Levels(3).LeftMargin = 160
      .Levels(4).FirstMargin = 180
      .Levels(4).LeftMargin = 220
      .Levels(5).FirstMargin = 240
      .Levels(5).LeftMargin = 280
  End With


问题未解决:在线咨询我要在线咨询问题

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日