Ppt2000: Cómo iniciar una presentación de diapositiva de PowerPoint 2000 desde otro programa

Seleccione idioma Seleccione idioma
Id. de artículo: 264112 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

En esta página

Resumen

La macro siguiente muestra cómo iniciar una presentación de Microsoft PowerPoint 2000 desde otro programa de Microsoft Office mediante Visual Basic para aplicaciones y cómo ejecutar una presentación que se inicia en una diapositiva distinta de la diapositiva uno.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos. Para obtener información adicional acerca de cómo utilizar el código de ejemplo de este artículo, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
212536OFF2000: Cómo ejecutar código de ejemplo de artículos de Knowledge Base

Ejemplo de código

Antes de utilizar este código, debe establecer una referencia al modelo de objetos Microsoft PowerPoint en el programa Microsoft Office en el que está escribiendo el código. Siga estos pasos para agregar la referencia:
  1. En el Editor de Visual Basic , en el menú Herramientas , haga clic en referencias .
  2. En el cuadro de diálogo referencias - VBAProject , haga clic en casilla de verificación Biblioteca de objetos de Microsoft PowerPoint 9.0 .
  3. Haga clic en Aceptar .

    Ahora tiene una referencia (en este proyecto) al modelo de objeto de PowerPoint 2000.
Sub launchShow()
Dim oPPT As PowerPoint.Application
Dim oPres As PowerPoint.Presentation

' Set oPPT to the PowerPoint Application object.
'
   Set oPPT = CreateObject("Powerpoint.Application")

' Make PowerPoint visible.
'
   oPPT.Visible = msoTrue

' Set oPres to be equal to the Filename and path. Replace 
'
' ***<Filename>***
'
' with the correct path and file name to the presentation.
'
' For example:
' Set oPres = oPPT.Presentations.Open("c:\Presentations\Pres1.ppt")
' 
   Set oPres = oPPT.Presentations.Open("<Filename>")
   With oPres.SlideShowSettings

' Set the starting slide and ending slide range. Replace
'
' ***<Starting Index>***
'
' with the index number of first slide you want to start the
' slide show from. Replace
'
' ***<Ending Index>***
'
' with the slide index number you want to end the show on.
' 
' For example:
'      .StartingSlide = 3
'      .EndingSlide = 12
'
      .StartingSlide = <Starting Index>
      .EndingSlide = <Ending Index>

' Set the slide show to use the above range of slides.
' Then set the slide show to show full screen.
'
      .RangeType = ppShowSlideRange
      .ShowType = ppShowTypeSpeaker
 
' Run the slide show.
'
     .Run
   End With
End Sub
				

Propiedades

Id. de artículo: 264112 - Última revisión: martes, 04 de febrero de 2014 - Versión: 2.2
La información de este artículo se refiere a:
  • Microsoft PowerPoint 2000 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB264112 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): 264112

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