基礎知識從 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 範圍