Dzwebs.Net

撰写电脑技术杂文十余年

TextStyle文本样式、TextStyleLevel段落格式信息、大纲文本级别TextStyleLevels

Admin | 2013-9-30 17:29:40 | 被阅次数 | 5876

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  一、TextStyle 对象

  代表三种文本样式之一:标题文本、正文文本或默认文本。每种文本样式包含一个 TextFrame 对象,用以描述文本在文本边界框中的放置方式;一个 Ruler 对象,用以包含制表位和大纲缩进格式信息;一个 TextStyleLevels 集合,用以包含大纲文本格式信息。TextStyle 对象是 TextStyles 集合的成员。

  使用 TextStyle 对象

  使用 TextStyles(index) 返回单个 TextStyle 对象,其中 index 为 ppBodyStyle、ppDefaultStyle 或 ppTitleStyle。以下示例设置当前演示文稿中所有幻灯片第一级正文文本的字体名称和大小。

  With ActivePresentation.SlideMaster _
          .TextStyles(ppBodyStyle).Levels(1)
      With .Font
          .Name = "Arial"
          .Size = 36
      End With
  End With

  二、TextStyleLevel对象

  包含大纲级别的字符和段落格式信息。TextStyleLevel 对象是 TextStyleLevels 集合的成员。TextStyleLevels 集合包含所有五个大纲级别的 TextStyleLevel 对象。

  使用 TextStyleLevel 对象

  使用 Levels(index) 返回单个 TextStyleLevel 对象,其中 index 为 1 到 5 的数字,对应于五个大纲级别。以下示例为当前演示文稿的所有幻灯片设置字体名称和大小、段前空间、第一级正文文本的段落对齐。

  With ActivePresentation.SlideMaster _
          .TextStyles(ppBodyStyle).Levels(1)
      With .Font
          .Name = "Arial"
          .Size = 36
      End With
      With .ParagraphFormat
          .LineRuleBefore = False
          .SpaceBefore = 14
          .Alignment = ppAlignJustify
      End With
  End With

  三、TextStyleLevels集合对象

  所有大纲文本级别的集合。该集合总是包含五个成员,每个成员由一个 TextStyleLevel 对象代表。

  使用 TextStyleLevels 集合

  使用 Levels(index) 返回单个 TextStyleLevel 对象,其中 index 为 1 到 5 的数字,对应于五个大纲级别。以下示例为当前演示文稿的所有幻灯片设置第一级正文文本的字体名称和大小。

  With ActivePresentation.SlideMaster _
          .TextStyles(ppBodyStyle).Levels(1)
      With .Font
          .Name = "Arial"
          .Size = 36
      End With
  End With

  以下示例为当前演示文稿的所有备注页的备注正文区域的每个大纲级别文本设置字体大小。

  With ActivePresentation.NotesMaster.TextStyles(ppBodyStyle).Levels
      .Item(1).Font.Size = 34
      .Item(2).Font.Size = 30
      .Item(3).Font.Size = 25
      .Item(4).Font.Size = 20
      .Item(5).Font.Size = 15
  End With

  四、TextStyles集合对象

  标题文本、正文文本和默认文本  三个文本样式 的集合,其中每个文本样式由一个TextStyle 对象表示。每个文本样式包含一个描述文本在文本边框中的放置方式的 TextFrame 对象、一个包含制表位和大纲缩进格式信息的 Ruler 对象、一个包含大纲文本格式化信息的 TextStyleLevels 集合。

  使用 TextStyles 集合

  使用 TextStyles(index) 返回单个 TextStyle 对象,其中 index 为 ppBodyStyle、ppDefaultStyle 或 ppTitleStyle。本示例设置当前演示文稿所有备注页上备注正文区域的边距。

  With ActivePresentation.NotesMaster _
          .TextStyles(ppBodyStyle).TextFrame
      .MarginBottom = 50
      .MarginLeft = 50
      .MarginRight = 50
      .MarginTop = 50
  End With


该杂文来自: PowerPoint杂文

上一篇:TextRange在演示文稿编程中的复杂使用

下一篇:无法打开*.ppt代表的文件类型

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计