一、AnimationSettings
代表幻灯片放映时应用于指定形状的动画的特殊效果。
使用AnimationSettings对象
使用 Shape 对象的 AnimationSettings 属性返回 AnimationSettings 对象。以下示例在当前演示文稿中添加一张幻灯片，其中包含标题和一个三项列表，然后设置该列表由第一级段落激活，从左侧飞入，被制成动画后变暗为指定颜色，并且其中的项目按逆向激活。
Set sObjs = ActivePresentation.Slides.Add(2, ppLayoutText).Shapes
sObjs.Title.TextFrame.TextRange.Text = "Top Three Reasons"
With sObjs.Placeholders(2)
.TextFrame.TextRange.Text = _
"Reason 1" & VBNewLine & "Reason 2" & VBNewLine & "Reason 3"
With .AnimationSettings
.TextLevelEffect = ppAnimateByFirstLevel
.EntryEffect = ppEffectFlyFromLeft
.AfterEffect = ppAfterEffectDim
.DimColor.RGB = RGB(100, 120, 100)
.AnimateTextInReverse = True
End With
End With
二、Application
代表整个 Microsoft PowerPoint 应用程序。Application 对象包括：
应用程序范围内的设置和选项（例如，当前打印机的名称）
用于返回顶层对象的属性，例如 ActivePresentation、Windows 等。
使用 Application 对象
使用 Application 属性返回 Application 对象。以下示例返回应用程序文件的路径。
Dim MyPath As String
MyPath = Application.Path
以下示例在其他应用程序中创建一个 PowerPoint Application 对象，并启动 PowerPoint（如果还未运行的话），然后打开一个名为“Ex_a2a.ppt”的现有演示文稿。
Set ppt = New Powerpoint.Application
ppt.Visible = True
ppt.Presentations.Open "c:\MyTest\111.ppt"
说明
编写要在 PowerPoint 中运行的编码时，以下 Application 对象的属性可以在没有对象限定符的情况下使用：ActivePresentation、ActiveWindow、AddIns、Assistant、CommandBars、Presentations、SlideShowWindows 和 Windows。例如，可以用 ActiveWindow.Height = 200 来代替 Application.ActiveWindow.Height = 200。
三、AutoCorrect
代表 Microsoft PowerPoint 中的“自动更正”功能。
使用 AutoCorrect 对象
使用 AutoCorrect 属性返回一个 AutoCorrect 对象。以下示例禁止显示“自动更正选项”按钮。
Sub HideAutoCorrectOpButton()
With Application.AutoCorrect
.DisplayAutoCorrectOptions = msoFalse
.DisplayAutoLayoutOptions = msoFalse
End With
End Sub