Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

Cómo automatizar PowerPoint con Visual FoxPro

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 230154
Resumen
En este artículo se muestra cómo automatizar Microsoft PowerPoint utilizando Visual FoxPro 6.0.
Más información
Utilizando la automatización de PowerPoint mediante programación puede imprimir, mostrar diapositivas y realizar la mayoría de las cosas que puede hacer de forma interactiva. Siga estos pasos para generar y ejecutar un ejemplo de automatización de Visual FoxPro:
  1. Inicie Visual FoxPro 6.0 y elija nuevo... en el menú archivo .
  2. Seleccione el proyecto como tipo de archivo, haga clic en nuevo archivo y denomine al proyecto PptTest.
  3. En el Jefe de proyecto para el proyecto, haga clic en programas en la entrada de código en el árbol, haga clic en el botón nuevo... .
  4. Pegue el código siguiente en la ventana 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					
  5. Elija Archivo/Guardar ( CTRL+S ) y guarde el programa como PptTest.
  6. Ejecute el programa ( CTRL+E ).

    El ejemplo crea un ejemplo de presentación de PowerPoint, reproduce una presentación con diapositivas para 16 segundos y, a continuación, limpia. El código está comentado cuidadosamente para explicar lo que hace cada segmento de código.

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 230154 - Última revisión: 01/24/2007 15:47:12 - Revisión: 3.4

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 KbMtes
Comentarios
dy>