Jak vytvořit a zobrazit prezentaci PowerPoint pomocí aplikace Visual Basic .NET 2002 nebo Visual Basic .NET 2003 pomocí automatizace

Microsoft Visual C# .NET verzi tohoto článku naleznete v tématu
303718 .
Microsoft Visual C++ .NET verzi tohoto článku naleznete v tématu
308336 .

Souhrn

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

Další informace

Vytvoření klienta automatizace aplikace PowerPoint

  1. Spusťte aplikaci Visual Studio .NET 2002 nebo Visual Studio .NET 2003. V nabídce soubor klepněte na příkaz Nový a klepněte na příkaz projekt. Vyberte Aplikace Windows z typů projekty jazyka Visual Basic. Ve výchozím nastavení je vytvořen formulář Form1.
  2. Přidejte odkaz na Objektové knihovny Microsoft PowerPoint a Knihovna objektů aplikace Microsoft Graph. Chcete-li to provést, postupujte takto:
    1. V nabídce projekt klepněte na tlačítko Přidat odkaz.
    2. Na kartě COM vyhledejte
      Objektové knihovny Microsoft PowerPointa potom klepněte na tlačítko
      Vyberte. Také vyhledejte Knihovna objektů aplikace Microsoft Grapha potom klepněte na tlačítko Vybrat.

      Poznámka: Microsoft Office 2003 a novějších verzích sady Microsoft Office obsahuje primární sestavení Interop (PIA). Microsoft Office XP nezahrnuje sestavení PIA, ale mohou být staženy.

      Další informace o sestaveních PIA sady Office XP klepněte na následující číslo článku databáze Microsoft Knowledge Base:
      328912 Microsoft Office XP PIA jsou k dispozici ke stažení

    3. Klepněte na tlačítko OK v dialogovém okně Přidat odkazy potvrďte výběr.
  3. V nabídce Zobrazit vyberte
    Nástrojů a po zobrazení panelu nástrojů přidat tlačítko do formuláře Form1.
  4. Poklepejte na Button1. Zobrazí se okno kód pro formulář.
  5. Vyhledejte následující kód v okně 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í kód:
        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 konstanty sTemplate a sPic představují úplnou cestu a název souboru šablony aplikace PowerPoint a obrázek, v uvedeném pořadí. V případě potřeby použít šablonu nebo obrázek, který je nainstalován v počítači, upravte tyto cesty.
  6. Přidejte následující kód k horní Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Graph = Microsoft.Office.Interop.Graph
    Imports PowerPoint = Microsoft.Office.Interop.PowerPoint

  7. Stisknutím klávesy F5 vytvořte a spusťte program.
  8. Ve formuláři vytvořit a poté zobrazit prezentaci aplikace PowerPoint, klepněte na tlačítko Button1 .

Odkazy

Další informace naleznete následujícím webu Microsoft Developer Network (MSDN):Další informace o automatizaci aplikace PowerPoint získáte v následujícím článku znalostní báze Microsoft Knowledge Base:
Jak vytvořit a zobrazit prezentaci PowerPoint pomocí MFC 180616

222929 jak automatizovat aplikaci PowerPoint pomocí aplikace Visual Basic

Vlastnosti

ID článku: 303717 - Poslední kontrola: 20. 1. 2017 - Revize: 2

Váš názor