Cómo usar la automatización para crear y mostrar una presentación de PowerPoint 2002 o de Office PowerPoint 2003 utilizando Visual Basic .NET 2002 o Visual Basic .NET 2003

Seleccione idioma Seleccione idioma
Id. de artículo: 303717 - Ver los productos a los que se aplica este artículo
Para obtener una versión de este artículo para Microsoft Visual C# .NET, consulte 303718.
Para obtener una versión de este artículo para Microsoft Visual C++ .NET, consulte 308336.
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se describe cómo usar la automatización para crear y mostrar una presentación de Microsoft PowerPoint 2002 o de Microsoft Office PowerPoint 2003 utilizando Microsoft Visual Basic .NET 2002 o Visual Basic .NET 2003.

Más información

Crear un cliente de automatización para Microsoft PowerPoint 2002 y para Microsoft Office PowerPoint 2003

  1. Inicie Microsoft Visual Studio .NET 2002 o Visual Studio .NET 2003. En el menú Archivo, haga clic en Nuevo y, a continuación, haga clic en Proyecto. Seleccione Aplicación para Windows en los tipos de proyectos de Visual Basic. De manera predeterminada se creará Form1.
  2. Agregue una referencia a la Biblioteca de objetos de Microsoft PowerPoint y a la Biblioteca de objetos de Microsoft Graph. Para ello, siga estos pasos:
    1. En el menú Proyecto, haga clic en Agregar referencia.
    2. En la ficha COM, busque la Biblioteca de objetos de Microsoft PowerPoint y haga clic en Seleccionar. Busque también la Biblioteca de objetos de Microsoft Graph y haga clic en Seleccionar.

      Nota:
      Microsoft Office 2003 incluye ensamblados de interoperabilidad primarios (PIA). Microsoft Office XP no incluye PIA, pero se pueden descargar. Para obtener más información acerca de los PIA de Office XP, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
      328912 Los ensamblados de interoperabilidad primaria (PIA) de Microsoft Office XP están disponibles para descarga
    3. Haga clic en Aceptar en el cuadro de diálogo Agregar referencia para aceptar sus selecciones.
  3. En el menú Ver, seleccione Cuadro de herramientas para mostrar el cuadro de herramientas y agregue un botón a Form1.
  4. Haga doble clic en Button1. Aparecerá la ventana de código del formulario.
  5. En la ventana de código, busque el código siguiente:
        Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
    
        End Sub
    					
    Reemplácelo con el código siguiente:
        Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
    
            Const sTemplate = _ "C:\Archivos de programa\Microsoft Office\Plantillas\Diseños de presentaciones\Mezclas.pot" Const sPic = "C:\WINNT\Pompas.bmp"
    
            Dim oApp As PowerPoint.Application Dim oPres As PowerPoint.Presentation Dim oSlide As PowerPoint.Slide Dim bAssistantOn As Boolean
    
            'Iniciar PowerPoint y hacer que su ventana sea visible pero esté minimizada. oApp = New PowerPoint.Application() oApp.Visible = True oApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized
    
            'Crear una nueva presentación basada en la plantilla especificada. oPres = oApp.Presentations.Open(sTemplate, , , True)
    
            'Crear la diapositiva número 1: 'Agregar texto a la diapositiva, cambiar la fuente e insertar/colocar 'una imagen en la primera diapositiva. oSlide = oPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly) With oSlide.Shapes.Item(1).TextFrame.TextRange .Text = "Mi presentación de ejemplo" .Font.Name = "Comic Sans MS" .Font.Size = 48 End With oSlide.Shapes.AddPicture(sPic, False, True, 150, 150, 500, 350) oSlide = Nothing
    
            'Crear la diapositiva número 2: 'Agregar texto al título de la diapositiva y darle formato. Agregar también un gráfico a 'la diapositiva y cambiar el tipo de gráfico a un gráfico circular en 3D. oSlide = oPres.Slides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly) With oSlide.Shapes.Item(1).TextFrame.TextRange .Text = "Mi gráfico" .Font.Name = "Comic Sans MS" .Font.Size = 48 End With Dim oChart As Graph.Chart oChart = oSlide.Shapes.AddOLEObject(150, 150, 480, 320, _ "MSGraph.Chart.8").OLEFormat.Object oChart.ChartType = Graph.XlChartType.xl3DPie oChart = Nothing oSlide = Nothing
    
            'Crear la diapositiva número 3: 'Agregar un efecto de texto a la diapositiva y aplicar sombras al efecto de texto. oSlide = oPres.Slides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank) oSlide.FollowMasterBackground = False Dim oShape As PowerPoint.Shape oShape = oSlide.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect27, _ "The End", "Impact", 96, False, False, 230, 200) oShape.Shadow.ForeColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppForeground oShape.Shadow.Visible = True oShape.Shadow.OffsetX = 3 oShape.Shadow.OffsetY = 3 oShape = Nothing oSlide = Nothing
    
            'Modificar la configuración de transición para las 3 diapositivas 'de la presentación. Dim SlideIdx(3) As Integer SlideIdx(0) = 1 SlideIdx(1) = 2 SlideIdx(2) = 3 With oPres.Slides.Range(SlideIdx).SlideShowTransition .AdvanceOnTime = True .AdvanceTime = 3 .EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut End With Dim oSettings As PowerPoint.SlideShowSettings oSettings = oPres.SlideShowSettings oSettings.StartingSlide = 1 oSettings.EndingSlide = 3
    
            'Impedir que el Ayudante de Office muestre mensajes de alerta. bAssistantOn = oApp.Assistant.On oApp.Assistant.On = False
    
            'Ejecutar la presentación y esperar a que termine. oSettings.Run() Do While oApp.SlideShowWindows.Count >= 1 System.Windows.Forms.Application.DoEvents() Loop oSettings = Nothing
    
            'Volver a habilitar el Ayudante de Office, si estaba activado. If bAssistantOn Then oApp.Assistant.On = True oApp.Assistant.Visible = False End If
    
            'Cerrar la presentación sin guardar los cambios y salir de PowerPoint. oPres.Saved = True oPres.Close() oPres = Nothing oApp.Quit() oApp = Nothing GC.Collect() End Sub
    					
    Nota:
    En este código, las constantes sTemplate y sPic representan la ruta de acceso completa y el nombre de archivo de una plantilla de PowerPoint y de una imagen, respectivamente. Modifique estas rutas de acceso según sea necesario para utilizar una plantilla o una imagen que esté instalada en el sistema.
  6. Agregue el código siguiente al principio de Form1.vb:
    Imports Office = Microsoft.Office.Core Imports Graph = Microsoft.Office.Interop.Graph
    					
  7. Presione F5 para generar el programa y, a continuación, ejecútelo.
  8. Haga clic en Button1 en el formulario para crear y mostrar una presentación de PowerPoint.

Referencias

Para obtener más información al respecto, visite el siguiente sitio Web de Microsoft Developer Network (MSDN):
http://msdn.microsoft.com/library/en-us/odc_2003_ta/html/odc_landvsto03_tr.asp
Para obtener más información acerca de la automatización de PowerPoint, haga clic en los números de artículo siguientes para verlos en Microsoft Knowledge Base:
180616 Cómo usar MFC para crear y mostrar una presentación PowerPoint
222929 Cómo automatizar PowerPoint con Visual Basic

Propiedades

Id. de artículo: 303717 - Última revisión: miércoles, 17 de enero de 2007 - Versión: 8.3
La información de este artículo se refiere a:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Visual Studio .NET 2002 Academic Edition
  • Microsoft Visual Studio .NET 2002 Enterprise Architect
  • Microsoft Visual Studio .NET 2002 Enterprise Developer
  • Microsoft Visual Studio .NET 2003 Academic Edition
  • Microsoft Visual Studio .NET 2003 Enterprise Architect
  • Microsoft Visual Studio .NET 2003 Enterprise Developer
  • Microsoft Visual Studio .NET 2003 Professional
Palabras clave: 
kbautomation kbhowto KB303717

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