如何使用自動化，使用 Visual Basic .NET 2002 或 Visual Basic .NET 2003 建立和顯示 PowerPoint 簡報

發行項
06/20/2023
適用於:

Microsoft PowerPoint

摘要

本文說明如何使用 Microsoft Visual Basic .NET 2002 或 Visual Basic .NET 2003，使用自動化來建立和顯示 Microsoft PowerPoint 簡報。

其他相關資訊

建立 Microsoft PowerPoint 的自動化用戶端

啟動 Microsoft Visual Studio .NET 2002 或 Visual Studio .NET 2003。在 [檔案] 功能表上，按一下 [新增]，然後按一下 [專案]。從 Visual Basic 專案類型中選取 [Windows 應用程式]。根據預設，會建立 Form1。
新增 Microsoft PowerPoint 物件程式庫和 Microsoft Graph 物件程式庫的參考。如果要執行這項操作，請依照下列步驟執行：
1. 按一下 [專案] 功能表上的 [加入參考]。
2. 在 [ COM] 索引卷 標上，找出 [Microsoft PowerPoint 物件程式庫]，然後按一下 [ 選取]。另請找出 Microsoft Graph 物件程式庫，然後按一下 [ 選取]。
注意 Microsoft Office 2003 和更新版本的 Microsoft Office 包含主要 Interop 元件 (PIA) 。 Microsoft Office XP 不包含 PIA，但可能會下載。
按一下 [新增參考] 對話方塊中的 [確定] 以接受您的選擇。
在 [ 檢視] 功能表上，選取 [ 工具箱 ] 以顯示 [工具箱]，並將按鈕新增至 Form1。
按兩下 Button1。表單的程式碼視窗隨即出現。

在程式碼視窗中，找出下列程式碼

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

End Sub

將取代為下列程式碼：

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

Const sTemplate = _
           "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Blends.pot"
        Const sPic = "C:\WINNT\Soap Bubbles.bmp"

Dim oApp As PowerPoint.Application
        Dim oPres As PowerPoint.Presentation
        Dim oSlide As PowerPoint.Slide
        Dim bAssistantOn As Boolean

'Start Powerpoint and make its window visible but minimized.
        oApp = New PowerPoint.Application()
        oApp.Visible = True
        oApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized

'Create a new presentation based on the specified template.
        oPres = oApp.Presentations.Open(sTemplate, , , True)

'Build Slide #1:
        'Add text to the slide, change the font and insert/position a 
        'picture on the first slide.
        oSlide = oPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
        With oSlide.Shapes.Item(1).TextFrame.TextRange
            .Text = "My Sample Presentation"
            .Font.Name = "Comic Sans MS"
            .Font.Size = 48
        End With
        oSlide.Shapes.AddPicture(sPic, False, True, 150, 150, 500, 350)
        oSlide = Nothing

'Build Slide #2:
        'Add text to the slide title, format the text. Also add a chart to the
        'slide and change the chart type to a 3D pie chart.
        oSlide = oPres.Slides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
        With oSlide.Shapes.Item(1).TextFrame.TextRange
            .Text = "My Chart"
            .Font.Name = "Comic Sans MS"
            .Font.Size = 48
        End With
        Dim oChart As Graph.Chart
        oChart = oSlide.Shapes.AddOLEObject(150, 150, 480, 320, _
                    "MSGraph.Chart.8").OLEFormat.Object
        oChart.ChartType = Graph.XlChartType.xl3DPie
        oChart = Nothing
        oSlide = Nothing

'Build Slide #3:
        'Add a text effect to the slide and apply shadows to the text effect.
        oSlide = oPres.Slides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank)
        oSlide.FollowMasterBackground = False
        Dim oShape As PowerPoint.Shape
        oShape = oSlide.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect27, _
            "The End", "Impact", 96, False, False, 230, 200)
        oShape.Shadow.ForeColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppForeground
        oShape.Shadow.Visible = True
        oShape.Shadow.OffsetX = 3
        oShape.Shadow.OffsetY = 3
        oShape = Nothing
        oSlide = Nothing

'Modify the slide show transition settings for all 3 slides in
        'the presentation.
        Dim SlideIdx(3) As Integer
        SlideIdx(0) = 1
        SlideIdx(1) = 2
        SlideIdx(2) = 3
        With oPres.Slides.Range(SlideIdx).SlideShowTransition
            .AdvanceOnTime = True
            .AdvanceTime = 3
            .EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut
        End With
        Dim oSettings As PowerPoint.SlideShowSettings
        oSettings = oPres.SlideShowSettings
        oSettings.StartingSlide = 1
        oSettings.EndingSlide = 3

'Prevent Office Assistant from displaying alert messages.
        bAssistantOn = oApp.Assistant.On
        oApp.Assistant.On = False

'Run the slide show and wait for the slide show to end.
        oSettings.Run()
        Do While oApp.SlideShowWindows.Count >= 1
            System.Windows.Forms.Application.DoEvents()
        Loop
        oSettings = Nothing

'Reenable Office Assisant, if it was on.
        If bAssistantOn Then
            oApp.Assistant.On = True
            oApp.Assistant.Visible = False
        End If

'Close the presentation without saving changes and quit PowerPoint.
        oPres.Saved = True
        oPres.Close()
        oPres = Nothing
        oApp.Quit()
        oApp = Nothing
        GC.Collect()
    End Sub

注意在此程式碼中，sTemplate 和 sPic 常數分別代表 PowerPoint 範本和圖片的完整路徑和檔案名。視需要修改這些路徑，以使用安裝在系統上的範本或圖片。

將下列程式碼新增至 Form1.vb 的頂端：

Imports Office = Microsoft.Office.Core
Imports Graph = Microsoft.Office.Interop.Graph
Imports PowerPoint = Microsoft.Office.Interop.PowerPoint

按 F5 建置，然後執行程式。
按一下表單上的 Button1 以建立 PowerPoint 簡報，然後顯示 PowerPoint 簡報。

參考

如需詳細資訊，請參閱下列 Microsoft Developer Network (MSDN) 網站：Visual Studio Tools Microsoft Office System 2003 訓練版

如何使用自動化，使用 Visual Basic .NET 2002 或 Visual Basic .NET 2003 建立和顯示 PowerPoint 簡報

摘要

其他相關資訊

建立 Microsoft PowerPoint 的自動化用戶端

參考

其他資源