Jak w programie PowerPoint można zautomatyzować przy użyciu języka Visual Basic, Office 2003, Office XP Developer i Office 2000 Developer

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:222929
Ten artykuł został zarchiwizowany. Jest oferowany „taki, jaki jest” i nie będzie już aktualizowany.
Streszczenie
W tym artykule opisano sposób automatyzacji programu Microsoft PowerPoint za pomocą programu Microsoft Visual Basic w programie Microsoft Office 2003 w pakiecie Microsoft Office XP Developer i pakietu Microsoft Office 2000 Developer.
Więcej informacji
Za pomocą automatyzacji w programie PowerPoint, można programowo Drukowanie, wyświetlania slajdów i wykonać większość czynności, które można wykonać interaktywnie. Wykonaj następujące kroki, aby skompilować i uruchomić przykład automatyzacji języka Visual Basic:
  1. Utwórz nowy projekt Standard EXE. Utworzony zostanie formularz Form1 przez Domyślnie.
  2. Dodaj formant CommandButton do formularza domyślnego.
  3. Z Projekt menu, kliknij przycisk Odwołaniai dodać Program Microsoft PowerPoint 8.0 Object Library. i Biblioteki obiektów Microsoft Office 8.0. Dla pakietu Office 2000 jest wersja 9.0 biblioteki typów. Office 2002 jest to wersja 10.0. Microsoft Office 2003 jest wersja 11.0.
  4. Dodaj następującą wartość do okna kodu formularza:
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()    ' Start PowerPoint.    Dim ppApp As PowerPoint.Application    Set ppApp = CreateObject("Powerpoint.Application")     ' Make it visible.    ppApp.Visible = True     ' Add a new presentation.    Dim ppPres As PowerPoint.Presentation    Set ppPres = ppApp.Presentations.Add(msoTrue)     ' Add a new slide.    Dim ppSlide1 As PowerPoint.Slide    Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutText)     ' Add some text.    ppSlide1.Shapes(1).TextFrame.TextRange.Text = "My first slide"    ppSlide1.Shapes(2).TextFrame.TextRange.Text = "Automating Powerpoint is easy" & vbCr & "Using Visual Basic is fun!"     ' Add another slide, with a chart.    Dim ppSlide2 As PowerPoint.Slide    Set ppSlide2 = ppPres.Slides.Add(2, ppLayoutTextAndChart)        ' Add some text.    ppSlide2.Shapes(1).TextFrame.TextRange.Text = "Slide 2's topic"    ppSlide2.Shapes(2).TextFrame.TextRange.Text = "You can create and use charts in your Powerpoint slides!"     ' Add a chart in the same location as the old one.    Dim cTop As Double    Dim cWidth As Double    Dim cHeight As Double    Dim cLeft As Double    With ppSlide2.Shapes(3)        cTop = .Top        cWidth = .Width        cHeight = .Height        cLeft = .Left        .Delete    End With    ppSlide2.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "MSGraph.Chart"     ' Add another slide, with an organization chart.    Dim ppSlide3 As PowerPoint.Slide    Set ppSlide3 = ppPres.Slides.Add(3, ppLayoutOrgchart)     ' Add some text.    ppSlide3.Shapes(1).TextFrame.TextRange.Text = "The rest is only limited by your Imagination"     ' Add an Org Chart in the same location as the old one.    With ppSlide3.Shapes(2)        cTop = .Top        cWidth = .Width        cHeight = .Height        cLeft = .Left        .Delete    End With    ppSlide3.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4" 'OrgPlusWOPX.4     ' is an object of the application Microsoft Organization Chart     ' Setup slide show properties.    With ppPres.Slides.Range.SlideShowTransition        .EntryEffect = ppEffectRandom        .AdvanceOnTime = msoTrue        .AdvanceTime = 5 ' 5 seconds per slide    End With     ' Prepare and run the slide show.    With ppPres.SlideShowSettings        .ShowType = ppShowTypeKiosk        .LoopUntilStopped = msoTrue        .RangeType = ppShowAll        .AdvanceMode = ppSlideShowUseSlideTimings        .Run    End With     ' Sleep so user can watch the show.    Sleep (15000)     ' Clean up.    ppApp.QuitEnd Sub					
  5. Uruchom projekt.
Materiały referencyjne
Aby uzyskać więcej informacji dotyczących automatyzacji pakietu Office, odwiedź witrynę Witryna sieci Web pomocy technicznej firmy Microsoft Office Development:

Ostrzeżenie: ten artykuł przetłumaczono automatycznie

Właściwości

Identyfikator artykułu: 222929 — ostatni przegląd: 12/05/2015 13:28:23 — zmiana: 2.0

Microsoft Office XP Developer Edition, Microsoft Office 2000 Developer Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Office PowerPoint 2003, Microsoft PowerPoint 2002 Standard Edition, Microsoft PowerPoint 2000 Standard Edition, Microsoft PowerPoint 97 Standard Edition

  • kbnosurvey kbarchive kbautomation kbhowto kbmt KB222929 KbMtpl
Opinia