Ako použiť automatizáciu aplikácie vytvoriť a zobraziť prezentáciu v programe PowerPoint pomocou Visual Basic.NET 2002 alebo Visual Basic.NET 2003

Preklady článku Preklady článku
ID článku: 303717 - Zobraziť produkty, ktorých sa tento článok týka.
Pre Microsoft Visual C#.NET verzie tohto článok, pozri 303718.
Pre Microsoft Visual C++.NET verzie tohto článok, pozri 308336.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Tento článok popisuje použitie automatizácie vytvoriť a prezentáciu Microsoft PowerPoint pomocou jazyka Microsoft Visual Basic.NET 2002 alebo Jazyka Visual Basic.NET 2003.

DALSIE INFORMACIE

Vytvoriť automatizačných klientov programu Microsoft PowerPoint

  1. Spustiť Microsoft Visual Studio.NET 2002 alebo Visual Studio .NET 2003. Na Súbor ponuky, kliknite na tlačidlo Nové a potom kliknite na tlačidlo Projekt. Vyberte Windows aplikácie z typov projektov programu Visual Basic. Vytvára sa Form1 predvolené.
  2. Pridať odkaz na Objektová knižnica programu Microsoft PowerPoint a Objektová knižnica programu Microsoft Graph. Chcete urobiť, postupujte nasledovne:
    1. Na Projekt ponuky, kliknite na tlačidlo Pridať Odkaz.
    2. Na COM kartu, vyhľadajte Objektová knižnica programu Microsoft PowerPoint, a potom kliknite na tlačidlo Vyberte. Tiež vyhľadajte Objekt programu Microsoft Graph Knižnica, a potom kliknite na tlačidlo Vyberte.

      Poznámka: Microsoft Office 2003 a novšími verziami balíka Microsoft Office obsahuje Primary Interop Assemblies (PIA). Microsoft Office XP nezahŕňa Pia, ale môžu byť stiahnuť.

      Pre viac informácie o Office XP Pia, kliknite na nasledovné číslo článku zobrazte článok v databáze Microsoft Knowledge Base:
      328912Microsoft Office XP Pia sú k dispozícii na prevzatie
    3. Kliknite na tlačidlo ok v Pridať Odkazy dialógové okno prijímať vaše výbery.
  3. Na Zobrazenie menu vyberteToolbox na zobrazenie panela s nástrojmi a pridať tlačidlo Form1.
  4. Dvakrát kliknite na Button1. Okno kód pre zobrazí sa formulár.
  5. V okne kódu, vyhľadajte nasledujúci kód
        Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    
        End Sub
    					
    Nahraďte nasledujúci 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ódexe, sTemplate a špica konštanty predstavujú úplnú cestu a názov súboru programu PowerPoint šablóny a obrázku, resp.. Upraviť tieto cesty, ako je potrebné na používanie šablóny alebo obrázok, ktorý je nainštalovaný vo vašom systéme.
  6. Do hornej časti Form1.vb, pridajte nasledujúci kód:
    Imports Office = Microsoft.Office.Core
    Imports Graph = Microsoft.Office.Interop.Graph
    Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
    					
  7. Stlačením klávesu F5 vybudovať a potom spustite program.
  8. Kliknite na tlačidlo Button1 vo formulári vytvoriť a potom ukázať PowerPoint prezentácia.

ODKAZY

Ďalšie informácie nájdete v časti Microsoft Developer Webová lokalita spoločnosti Network (MSDN):
http://msdn2.Microsoft.com/en-us/library/aa167948 (office.11) .aspx
Ďalšie informácie o automatizácie programu PowerPoint, kliknite na tlačidlo nasledujúci článok čísla článkov databázy Microsoft Knowledge Base:
180616Ako používať MFC na vytvorenie aj premietanie prezentácie v PowerPointe
222929 Automatizácia PowerPoint pomocou Visual Basic
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Vlastnosti

ID článku: 303717 - Posledná kontrola: 31. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Office PowerPoint 2007
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Studio .NET 2002 Academic Edition
  • Microsoft Visual Studio .NET 2002 Enterprise Architect
  • Microsoft Visual Studio .NET 2002 Enterprise Developer
  • Microsoft Visual Studio .NET 2003 Academic Edition
  • Microsoft Visual Studio .NET 2003 Enterprise Architect
  • Microsoft Visual Studio .NET 2003 Enterprise Developer
  • Microsoft Visual Studio .NET 2003 Professional Edition
Kľúčové slová: 
kbexpertiseinter kbautomation kbhowto kbmt KB303717 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:303717

Odošlite odozvu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com