Jak korzystać z automatyzacji, aby utworzyć i pokazywanie prezentacji programu PowerPoint przy użyciu programu Visual Basic.NET 2002 lub Visual Basic.NET 2003

Tłumaczenia artykułów Tłumaczenia artykułów
Numer ID artykułu: 303717 - Zobacz jakich produktów dotyczą zawarte w tym artykule porady.
Dla programu Microsoft Visual C#.Wersja netto tej artykuł, zobacz 303718.
Dla programu Microsoft Visual C++.Wersja netto tej artykuł, zobacz 308336.
Rozwiń wszystko | Zwiń wszystko

Na tej stronie

Streszczenie

W tym artykule opisano sposób używania automatyzacji do tworzenia i Aby pokazać prezentację programu Microsoft PowerPoint przy użyciu programu Microsoft Visual Basic.NET 2002 lub Języka Visual Basic.NET 2003.

Więcej informacji

Tworzenie klienta automatyzacji programu Microsoft PowerPoint

  1. Uruchom program Microsoft Visual Studio.NET 2002 lub Visual Studio .NET 2003. Na Plik menu, kliknij przycisk Nowy a następnie kliknij przycisk Projekt. Wybierz Aplikacja systemu Windows z typów projektów programu Visual Basic. Utworzony zostanie formularz Form1 przez Domyślnie.
  2. Dodaj odwołanie do Biblioteka obiektów programu Microsoft PowerPoint oraz Biblioteki obiektów Microsoft Graph. Aby to zrobić, wykonaj następujące kroki:
    1. Na Projekt menu, kliknij przycisk Dodawanie Odwołanie.
    2. Na COM Karta, zlokalizuj Biblioteka obiektów programu Microsoft PowerPoint, a następnie kliknij przycisk Wybierz. Zlokalizuj również Obiekt programu Microsoft Graph Biblioteka, a następnie kliknij przycisk Wybierz.

      Uwaga: Microsoft Office 2003 i nowszych wersjach pakietu Microsoft Office zawiera podstawowe zestawy Interop (PIAs). Microsoft Office XP nie obejmuje PIAs, ale może być pobrany.

      Aby uzyskać więcej informacji informacje dotyczące pakietu Office XP PIAs, kliknij następujący numer artykułu w celu wyświetlenia artykuł z bazy wiedzy Microsoft Knowledge Base:
      328912PIAs programu Microsoft Office XP są dostępne do pobrania
    3. Kliknij przycisk OK w Dodawanie Odwołania okno dialogowe, aby zaakceptować wybrane opcje.
  3. Na Widok menu wybierzPrzybornik Aby wyświetlić przybornik i dodać przycisk, aby Formularz Form1.
  4. Kliknij dwukrotnie ikonę Button1. Okno kod wyświetlany jest formularz.
  5. W oknie Kod zlokalizuj następujący kod:
        Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    
        End Sub
    					
    Zamień następujący kod:
        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
    					
    Uwaga W tym kodzie sTemplate i sPic stałe reprezentuje pełną ścieżkę i nazwę pliku programu PowerPoint szablon i obraz, odpowiednio. Zmodyfikuj te ścieżki odpowiednio do używania szablon lub obraz, który jest zainstalowany w systemie.
  6. Dodaj następujący kod do góry Form1.vb:
    Imports Office = Microsoft.Office.Core
    Imports Graph = Microsoft.Office.Interop.Graph
    Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
    					
  7. Naciśnij klawisz F5, aby skompilować i uruchomić program.
  8. Kliknij przycisk Button1 w formularzu Tworzenie i wyświetlanie programu PowerPoint prezentacja.

Materiały referencyjne

Aby uzyskać więcej informacji zobacz następujące Microsoft Developer Witryna Network (MSDN) w sieci Web:
http://msdn2.microsoft.com/en-us/library/aa167948 (office.11) .aspx
Aby uzyskać więcej informacji dotyczących automatyzacji programu PowerPoint kliknij następujący artykuł numery w celu wyświetlenia tych artykułów z bazy wiedzy Microsoft Knowledge Base:
180616Jak używać klasy MFC do tworzenia i pokazywanie prezentacji programu PowerPoint
222929 Jak zautomatyzować przy użyciu języka Visual Basic w programie PowerPoint

Właściwości

Numer ID artykułu: 303717 - Ostatnia weryfikacja: 6 października 2011 - Weryfikacja: 3.0
Informacje zawarte w tym artykule dotyczą:
  • 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
Słowa kluczowe: 
kbexpertiseinter kbautomation kbhowto kbmt KB303717 KbMtpl
Przetłumaczone maszynowo
WAŻNE: Ten artykuł nie został przetłumaczony przez człowieka, tylko przez oprogramowanie do tłumaczenia maszynowego firmy Microsoft. Firma Microsoft oferuje zarówno artykuły tłumaczone przez ludzi, jak i artykuły tłumaczone maszynowo, dzięki czemu każdy użytkownik może uzyskać dostęp do całej zawartości bazy wiedzy Knowledge Base we własnym języku. Prosimy jednak pamiętać, że artykuły przetłumaczone maszynowo nie zawsze są doskonałe. Mogą zawierać błędy słownictwa, składni i gramatyki, przypominające błędy robione przez osoby, dla których język użytkownika nie jest językiem ojczystym. Firma Microsoft nie odpowiada za wszelkie nieścisłości, błędy lub szkody spowodowane nieprawidłowym tłumaczeniem zawartości oraz za wykorzystanie tej zawartości przez klientów. Oprogramowanie do tłumaczenia maszynowego jest często aktualizowane przez firmę Microsoft.
Anglojęzyczna wersja tego artykułu to:303717

Przekaż opinię

 

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