C�mo automatizar PowerPoint usando Visual Basic en Office 2003, en Office XP Developer y en Office 2000 Developer

Id. de art�culo: 222929 - Ver los productos a los que se aplica este art�culo

Advertencia: Art�culo de Traducci�n Autom�tica, vea la exenci�n de responsabilidad.

Haga clic aqu� para ver en paralelo el art�culo de traducci�n autom�tica y el art�culo original en ingl�s.

Expandir todo | Contraer todo

Resumen

En este art�culo describe c�mo automatizar Microsoft PowerPoint mediante Microsoft Visual Basic en Microsoft Office 2003, en Microsoft Office XP Developer y en Microsoft Office 2000 Developer.

Volver al principio | Enviar comentarios

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 Basic:

Cree un nuevo proyecto EXE est�ndar. Se crear� Form1 de manera predeterminada.
Agregue un CommandButton al formulario predeterminado.
En el men� proyecto , haga clic en referencias y agregar Biblioteca de objetos de Microsoft PowerPoint 8.0 y Biblioteca de objetos de Microsoft Office 8.0 . Para Office 2000, esta es la versi�n 9.0 de las bibliotecas de tipos. Para Office 2002, esta es la versi�n 10.0. Para Microsoft Office 2003, �sta es la versi�n 11.0.

Agregue lo siguiente a la ventana de c�digo de formulario:

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.Quit

End Sub

Ejecute el proyecto.

Volver al principio | Enviar comentarios

Referencias

Para obtener m�s informaci�n acerca de automatizaci�n de Office, visite el sitio Web de Microsoft Office Development soporte t�cnico:

http://support.microsoft.com/ofd

(http://support.microsoft.com/ofd)

Volver al principio | Enviar comentarios

Propiedades

Id. de art�culo: 222929 - �ltima revisi�n: mi�rcoles, 24 de enero de 2007 - Versi�n: 5.4

La informaci�n de este art�culo se refiere a:

Microsoft Office 2003, All Editions
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 Visual Basic Enterprise Edition for Windows 6.0
Microsoft Office PowerPoint 2003
Microsoft PowerPoint 2002 Standard Edition
Microsoft PowerPoint 2000 Standard Edition
Microsoft PowerPoint 97 Standard Edition

kbmt kbautomation kbhowto KB222929 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): 222929

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

Volver al principio | Enviar comentarios