基础知识从 VBA 启动 PowerPoint

虽然有许多参数可以更改,并且可以根据所需的功能添加变体,但此示例列出了启动 PowerPoint 的基本框架。

注意: 此代码要求 PowerPoint 引用已添加到活动 VBA 项目中。请参阅参考文档条目以了解如何启用参考。

首先,为 Application,Presentation 和 Slide Objects 定义变量。虽然这可以通过后期绑定来完成,但最好在适用时使用早期绑定。

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide

接下来,打开或创建 PowerPoint 应用程序的新实例。这里,On Error Resume Next 调用用于避免如果 PowerPoint 尚未打开则由 GetObject 抛出错误。有关更详细的说明,请参阅最佳实践主题的错误处理示例。

'Open PPT if not running, otherwise select active instance
On Error Resume Next
Set PPApp = GetObject(, "PowerPoint.Application")
On Error GoTo ErrHandler
If PPApp Is Nothing Then
    'Open PowerPoint
    Set PPApp = CreateObject("PowerPoint.Application")
    PPApp.Visible = True
End If

启动应用程序后,将生成新的演示文稿和随后包含的幻灯片以供使用。

'Generate new Presentation and slide for graphic creation
Set PPPres = PPApp.Presentations.Add
Set PPSlide = PPPres.Slides.Add(1, ppLayoutBlank)

'Here, the slide type is set to the 4:3 shape with slide numbers enabled and the window 
'maximized on the screen.  These properties can, of course, be altered as needed

PPApp.ActiveWindow.ViewType = ppViewSlide
PPPres.PageSetup.SlideOrientation = msoOrientationHorizontal
PPPres.PageSetup.SlideSize = ppSlideSizeOnScreen
PPPres.SlideMaster.HeadersFooters.SlideNumber.Visible = msoTrue
PPApp.ActiveWindow.WindowState = ppWindowMaximized

完成此代码后,将打开一个带有空白幻灯片的新 PowerPoint 窗口。通过使用对象变量,可以根据需要添加形状,文本,图形和 Excel 范围