Momentálne ste offline a čaká sa, kým sa znova pripojíte na internet

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

Poskytovanie technickej podpory pre balík Office 2003 sa skončilo

8. apríla 2014 ukončila spoločnosť Microsoft poskytovanie technickej podpory pre balík Office 2003. Táto zmena ovplyvnila aktualizácie softvéru a možnosti zabezpečenia. Zistite, čo to pre vás znamená a ako ponechať počítač zabezpeč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.

303717
Pre Microsoft Visual C#.NET verzie tohto článok, pozri 303718.
Pre Microsoft Visual C++.NET verzie tohto článok, pozri 308336.
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.CoreImports Graph = Microsoft.Office.Interop.GraphImports 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): Ď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
PPT2007
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.

Upozornenie: Tento článok bol preložený automaticky

Vlastnosti

ID článku: 303717 – Posledná kontrola: 10/31/2011 11:03:00 – Revízia: 2.0

  • 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
  • kbexpertiseinter kbautomation kbhowto kbmt KB303717 KbMtsk
Pripomienky