PowerPoint-bemutató létrehozása és megjelenítése automatizálással a Visual Basic .NET 2002 vagy a Visual Basic .NET 2003 használatával

Összefoglalás

Ez a cikk bemutatja, hogyan hozhat létre és jeleníthet meg Microsoft PowerPoint-bemutatókat automatizálással a Microsoft Visual Basic .NET 2002 vagy a Visual Basic .NET 2003 használatával.

További információ

Automatizálási ügyfél létrehozása a Microsoft PowerPointhoz

1. Indítsa el a Microsoft Visual Studio .NET 2002-et vagy a Visual Studio .NET 2003-at. A Fájl menüben kattintson az Új, majd a Projekt elemre. Válassza ki a Windows-alkalmazást a Visual Basic Projects típusból. Az 1. űrlap alapértelmezés szerint létrejön.

2. Adjon hozzá egy hivatkozást a Microsoft PowerPoint objektumtárra és a Microsoft Graph-objektumtárra. Ehhez hajtsa végre a következő lépéseket:

   1. Kattintson a Projekt menü Hivatkozás hozzáadása parancsára.
   2. A COM lapon keresse meg a Microsoft PowerPoint objektumtárat, és kattintson a Kijelölés gombra. Keresse meg a Microsoft Graph objektumtárat is, majd kattintson a Kiválasztás gombra.

   Megjegyzés A Microsoft Office 2003 és újabb verziói tartalmazzák az elsődleges együttműködési szerelvényeket (PIA-kat). A Microsoft Office XP nem tartalmazza a PIA-kat, de előfordulhat, hogy letöltődnek.

3. Kattintson az OK gombra a Hivatkozások hozzáadása párbeszédpanelen a kijelölt elemek elfogadásához.

4. A Nézet menüben válassza az Eszközkészlet lehetőséget az eszközkészlet megjelenítéséhez, és adjon hozzá egy gombot az 1. űrlaphoz.

5. Kattintson duplán a Button1 gombra. Megjelenik az űrlap kódablaka.

6. A kódablakban keresse meg a következő kódot

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

   Cserélje le a következő kódra:

       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
   
   

   Megjegyzés Ebben a kódban az sTemplate és sPic állandók egy PowerPoint-sablon és egy kép teljes elérési útját és fájlnevét jelölik. Szükség szerint módosítsa ezeket az elérési utakat a rendszerre telepített sablon vagy kép használatához.

7. Adja hozzá a következő kódot a Form1.vb fájl elejéhez:

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

8. Nyomja le az F5 billentyűt a program létrehozásához és futtatásához.

9. Kattintson a Gomb1 gombra az űrlapon a PowerPoint-bemutató létrehozásához és megjelenítéséhez.

Hivatkozások

További információt a Microsoft Developer Network (MSDN) következő webhelyén talál: Visual Studio Tools for the Microsoft Office System 2003 Training