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