星空精灵 发表于 2017-10-21 14:57:00

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

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

omener 发表于 2017-10-21 19:20:20

进行溜达一下

eric_such 发表于 2017-10-25 07:23:10

又看了一次
页: [1]
查看完整版本: TextStyle文本样式、TextStyleLevel段落格式信息、大纲文本级别TextStyleLevels