Cómo automatizar PowerPoint con Visual FoxPro

Seleccione idioma Seleccione idioma
Id. de artículo: 230154 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

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.

Propiedades

Id. de artículo: 230154 - Última revisión: miércoles, 24 de enero de 2007 - Versión: 3.4
La información de este artículo se refiere a:
  • Microsoft Visual FoxPro 6.0 Professional Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
Palabras clave: 
kbmt kbautomation kbhowto KB230154 KbMtes
Traducción automática
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

Enviar comentarios

 

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