Automatisieren von PowerPoint mithilfe von Visual FoxPro

Artikel-ID: 230154 - Produkte anzeigen, auf die sich dieser Artikel bezieht

Hinweis: Dies ist ein maschinell �bersetzter Artikel.

Maschinell-�bersetzte und englische Version des Artikels nebenander anzeigen

Alles erweitern | Alles schlie�en

Zusammenfassung

Dieser Artikel beschreibt die Microsoft PowerPoint mit Visual FoxPro 6.0 automatisieren.

Mithilfe der Automatisierung in PowerPoint k�nnen Sie programmgesteuert drucken, Folien anzeigen und f�hren Sie die meisten der M�glichkeiten interaktiv. Gehen Sie folgenderma�en erstellen und Ausf�hren einer Visual FoxPro-Automatisierung-Beispiels vor:

Starten Sie Visual FoxPro 6.0 und w�hlen Sie neu aus im Men� Datei .
W�hlen Sie Projekt als Datei, klicken Sie auf neue Datei , und nennen Sie das Projekt PptTest.
Im Projekt-Manager f�r Ihr Projekt auf Programme unter dem Code -Eintrag in der Struktur klicken Sie auf die Schaltfl�che neu .

F�gen Sie den folgenden Code in das Fenster Program1:

 * Start PowerPoint
   PptApp = CreateObject("Powerpoint.Application")
	
 * Add a presentation
   PptPres = PptApp.Presentations.Add(1)

 * Add a slide	
   PptSlide1 = PptPres.Slides.Add(1,2)
	
 * Add some text...
   PptSlide1.Shapes(1).TextFrame.TextRange.Text = "My first slide"
   PptSlide1.Shapes(2).TextFrame.TextRange.Text = "Automating Powerpoint is easy" + Chr(13) + "Using FoxPro is fun!"
	
 * Add another slide, with a chart
   PptSlide2 = PptPres.Slides.Add(2,5)

 * Add some text
   PptSlide2.Shapes(1).TextFrame.TextRange.Text = "Slide 2's topic"
   PptSlide2.Shapes(1).TextFrame.TextRange.Text = "You can create and use charts in your Powerpoint slides!"

 * Add a chart where the old one is...
   With PptSlide2.Shapes(3)
      cTop = .Top
      cWidth = .Width
      cHeight = .Height
      cLeft = .Left
      .Delete
   EndWith
	
   PptSlide2.Shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "MSGraph.Chart")

 * Add another slide, with an Organization chart
   PptSlide3 = PptPres.Slides.Add(3,7)
	
 * Add some text
   PptSlide3.Shapes(1).TextFrame.TextRange.Text = "The rest is only limited by your Imagination"

 * Add an Org chart where old one is...
   With PptSlide3.Shapes(2)
      cTop = .Top
      cWidth = .Width
      cHeight = .Height
      cLeft = .Left
      .Delete
   EndWith
	
    &&  PptSlide3.Shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4")
    &&  Uncomment the above line if you have the correct file.


 * Setup slide show properties...
   With PptPres.Slides.Range.SlideShowTransition
      .EntryEffect = 513
      .AdvanceOnTime = 1
      .AdvanceTime = 5
   EndWith

 * Prepare and run slide-show!
   With PptPres.SlideShowSettings
      .ShowType = 3
      .LoopUntilStopped = 1
      .RangeType = 1
      .AdvanceMode = 2
      .Run
   EndWith

 * Sleep so user can watch the show...
   Wait window "Waiting for slide show to finish..." TIMEOUT 16

 * Stop the slide show
   PptPres.SlideShowWindow.View.Exit

 * Clean up
   PptApp.Quit
   Release PptSlide3
   Release PptSlide2
   Release PptSlide1
   Release PptPres
   Release PptApp

W�hlen Sie Datei-speichern ( STRG + S ) und speichern Sie das Programm als PptTest.
F�hren Sie das Programm ( STRG + E ).

Das Beispiel erstellt ein Beispiel f�r PowerPoint-Pr�sentation, eine Bildschirmpr�sentation 16 Sekunden lang wiedergegeben und bereinigt. Der Code ist sorgf�ltig um zu erkl�ren, wozu jeder Codesegment kommentiert.

Eigenschaften

Artikel-ID: 230154 - Ge�ndert am: Mittwoch, 24. Januar 2007 - Version: 3.4

Die Informationen in diesem Artikel beziehen sich auf:

Microsoft Visual FoxPro 6.0 Professional Edition
Microsoft PowerPoint 2002 Standard Edition
Microsoft PowerPoint 2000 Standard Edition
Microsoft PowerPoint 97 Standard Edition

kbmt kbautomation kbhowto KB230154 KbMtde

Maschinell �bersetzter Artikel

Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen �bersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden st�ndig erg�nzt beziehungsweise �berarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu k�nnen, werden viele Artikel nicht von Menschen, sondern von �bersetzungsprogrammen �bersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell �bersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdw�rtern sowie Fachbegriffen. Microsoft �bernimmt keine Gew�hr f�r die sprachliche Qualit�t oder die technische Richtigkeit der �bersetzungen und ist nicht f�r Probleme haftbar, die direkt oder indirekt durch �bersetzungsfehler oder die Verwendung der �bersetzten Inhalte durch Kunden entstehen k�nnten.

Den englischen Originalartikel k�nnen Sie �ber folgenden Link abrufen: 230154

(http://support.microsoft.com/kb/230154/en-us/ )

Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verf�gung. Microsoft �bernimmt keinerlei Gew�hrleistung daf�r, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erw�nschten Ergebnisse erzielen. Die Entscheidung dar�ber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung f�r Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.