Jesteś obecnie w trybie offline. Czekamy na ponowne połączenie z Internetem.

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

Zakończono świadczenie pomocy technicznej dla pakietu Office 2003

Firma Microsoft zakończyła świadczenie pomocy technicznej dla pakietu Office 2003 8 kwietnia 2014. Ta zmiana wpłynęła na Twoje aktualizacje oprogramowania i opcje zabezpieczeń. Dowiedz się, co to oznacza dla Ciebie i jak zapewnić sobie kontynuację ochrony.

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
Dla programu Microsoft Visual C#.Wersja netto tej artykuł, zobacz 303718.
Dla programu Microsoft Visual C++.Wersja netto tej artykuł, zobacz 308336.
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.CoreImports Graph = Microsoft.Office.Interop.GraphImports 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: 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
PPT2007

Ostrzeżenie: ten artykuł przetłumaczono automatycznie

Właściwości

Identyfikator artykułu: 303717 — ostatni przegląd: 10/06/2011 03:44:00 — zmiana: 3.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 KbMtpl
Opinia