Použití automatizace k vytvoření a zobrazení powerpointové prezentace pomocí jazyka Visual Basic .NET 2002 nebo Visual Basic .NET 2003

Souhrn

Tento článek popisuje, jak pomocí automatizace vytvořit a zobrazit prezentaci aplikace Microsoft PowerPoint pomocí jazyka Microsoft Visual Basic .NET 2002 nebo Visual Basic .NET 2003.

Další informace

Vytvoření klienta automatizace pro Microsoft PowerPoint

1. Spusťte microsoft Visual Studio .NET 2002 nebo Visual Studio .NET 2003. V nabídce Soubor klikněte na Nový a potom klikněte na Project. V typech projektů jazyka Visual Basic vyberte aplikaci pro Windows. Formulář1 je ve výchozím nastavení vytvořen.

2. Přidejte odkaz na knihovnu objektů Aplikace Microsoft PowerPoint a knihovnu objektů Microsoft Graphu. Postupujte takto:

   1. V nabídce Projekt klikněte na Přidat odkaz.
   2. Na kartě COM vyhledejte Knihovnu objektů aplikace Microsoft PowerPoint a klepněte na tlačítko Vybrat. Vyhledejte také knihovnu objektů Microsoft Graph a klepněte na tlačítko Vybrat.

   Poznámka Microsoft Office 2003 a novější verze Systému Microsoft Office zahrnují primární sestavení vzájemné spolupráce (PIA). Microsoft Office XP neobsahuje pia, ale mohou být staženy.

3. Kliknutím na tlačítko OK v dialogovém okně Přidat odkazy potvrďte výběry.

4. V nabídce Zobrazení vyberte sadu nástrojů , chcete-li zobrazit sadu nástrojů a přidat tlačítko do Form1.

5. Poklikáte na Tlačítko1. Zobrazí se okno kódu formuláře.

6. V okně kódu vyhledejte následující kód.

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

   Nahraďte následujícím kódem:

       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
   
   

   Poznámka V tomto kódu představují konstanty sTemplate a sPic úplnou cestu a název souboru šablony PowerPointu a obrázek. Podle potřeby upravte tyto cesty tak, aby používaly šablonu nebo obrázek nainstalované ve vašem systému.

7. Do horní části souboru Form1.vb přidejte následující kód:

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

8. Stisknutím klávesy F5 sestavte a spusťte program.

9. Kliknutím na tlačítko1 ve formuláři vytvořte a zobrazte powerpointovou prezentaci.

Odkazy

Další informace naleznete na následujícím webu Microsoft Developer Network (MSDN): Visual Studio Tools školení systému Microsoft Office 2003