Application 对象

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:\My Documents\ex_a2a.ppt"

说明

编写要在 PowerPoint 中运行的编码时，以下 Application 对象的属性可以在没有对象限定符的情况下使用：ActivePresentation、ActiveWindow、AddIns、Assistant、CommandBars、Presentations、SlideShowWindows 和 Windows。例如，可以用 ActiveWindow.Height = 200 来代替 Application.ActiveWindow.Height = 200。