大众计算机学习网

专门提供各种电脑教程

Font 对象、Fonts 集合对象和FreeformBuilder 对象

Admin | 2013-2-13 10:31:23 | 被阅次数 | 3266

  一、Font 对象

  代表文本或项目符号的字符格式。Font 对象是 Fonts 集合的成员。Fonts 集合包含演示文稿中使用的所有字体。

  使用 Font 对象

  本节描述如何进行下列操作:

  返回 Font 对象,该对象代表指定的项目符号、指定的文本范围或指定大纲级别的所有文本的字体属性。
  从演示文稿使用的所有字体的集合中返回一个 Font 对象。
  返回 Font 对象,该对象代表指定的项目符号、指定的文本范围或指定大纲级别的所有文本的字体属性
  使用 Font 属性返回 Font 对象,该对象代表指定的项目符号、文本范围或指定大纲级别的所有文本的字体属性。以下示例设置第一张幻灯片的标题文本并设置字体属性。

With ActivePresentation.Slides(1).Shapes.Title _
        .TextFrame.TextRange
    .Text = "Volcano Coffee"
    With .Font
        .Italic = True
        .Name = "Palatino"
        .Color.RGB = RGB(0, 0, 255)
    End With
End With

  从演示文稿使用的所有字体的集合中返回一个 Font 对象,使用 Fonts(index) 返回单个 Font 对象,其中 index 是字体名称或索引号。以下示例检查当前演示文稿中的第一种字体是否已嵌入。

  If ActivePresentation.Fonts(1).Embedded = True Then MsgBox "Font 1 is embedded"

  二、Fonts 集合对象

  指定演示文稿中所有 Font 对象的集合。每个 Font 对象代表演示文稿中使用的一种字体。

  注意  “Geni Wizard”使用 Fonts 集合来判断,Genigraphics 对幻灯片进行图像处理时是否支持指定演示文稿中的字体。如果仅希望设置特定项目符号或文本范围的字符格式,请使用 Font 属性为项目符号或文本范围返回 Font 对象。

  使用 Fonts 对象

  使用 Fonts 属性返回 Fonts 集合。以下示例显示当前演示文稿中使用的字体种数。

  MsgBox ActivePresentation.Fonts.Count

  使用 Fonts(index) 返回单个 Font 对象,其中 index 是字体名称或索引号。以下示例检查当前演示文稿的第一种字体是否已嵌入。

  If ActivePresentation.Fonts(1).Embedded = True Then
      MsgBox "Font 1 is embedded"

  三、FreeformBuilder 对象

  代表在创建任意多边形时使用的几何形状。

  使用 FreeformBuilder 对象

  使用 BuildFreeform 方法返回一个 FreeformBuilder 对象。使用 AddNodes 方法向任意多边形添加结点。使用 ConvertToShape 方法创建 FreeformBuilder 对象中定义的形状并将其添加到 Shapes 集合中。以下示例在 myDocument 中添加一个具有四段的任意多边形。

  Set myDocument = ActivePresentation.Slides(1)
  With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
      .AddNodes msoSegmentCurve, msoEditingCorner,380, 230, 400, 250, 450, 300
      .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
      .AddNodes msoSegmentLine, msoEditingAuto, 480, 400
      .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
      .ConvertToShape
  End With