PowerPoint: Diapositivas código de ejemplo para copiar a otra presentación

Seleccione idioma Seleccione idioma
Id. de artículo: 161661 - Ver los productos a los que se aplica este artículo
Para obtener una versión de Microsoft PowerPoint 2001 de este artículo, consulte 274700.
Para obtener una versión de Microsoft PowerPoint 2000 de este artículo, consulte 222780.
Expandir todo | Contraer todo

En esta página

Resumen

Este artículo contiene un ejemplo de Microsoft Visual Basic para aplicaciones macro (procedimiento Sub) que copia todas las diapositivas, como objetos de PowerPoint, desde la presentación activa a otra presentación. Si dispone de abrir una presentación, la macro crea y, a continuación, agrega las diapositivas a la nueva presentación. Si tiene dos presentaciones abiertas, la macro agrega las diapositivas al final de la segunda presentación.

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.

Procedimiento de ejemplo de Visual Basic

   Sub SlideCopy()

      ' Variable declarations.
      Dim SourceView, answer As Integer
      Dim SourceSlides, NumPres, x As Long

      ' Count the open presentations.
      NumPres = Presentations.Count

      ' Check to see whether more than one presentation is open.
      If NumPres = 0 Then
         ' If no presentations are open, stop the macro.
         MsgBox "You must have at least one presentation open", _
            vbCritical + vbOKOnly, "No Presentations Open"
         End
      End If

      ' If more than two presentations are open, quit the macro.
      If NumPres > 2 Then
         MsgBox "Too many open presentations. Only two presentations" _
            & " may be open." & Chr(13) & "The active presentation is " _
            & "the source and other presentation is the destination.", _
            vbOKOnly + vbCritical, "Too Many Open Presentations"
         End
      End If

      ' Stores the current view of the source presentation.
      SourceView = ActiveWindow.ViewType

      ' Count the number of slides in source presentation.
      SourceSlides = ActivePresentation.Slides.Count

      ' See whether only one presentation is open.
      If NumPres = 1 Then
         answer = MsgBox("Only one presentation is open. " & _
            "This presentation will be used as the source. " & _
            Chr(13) & "Press YES to create a new presentation as " _
            & "the destination.", vbYesNo + vbQuestion, "Only One " _
            & "Presentation Open")

         ' If no selected in the message box, quit the macro.
         If answer = vbNo Then
            End
         End If

         ' Create a new presentation for the designation.
         Presentations.Add

         ' Set up the slide size to be the same as the source.
         With ActivePresentation.PageSetup
            .SlideHeight = Presentations(1).PageSetup.SlideHeight
            .SlideWidth = Presentations(1).PageSetup.SlideWidth
         End With

         ' Switch the destination presentation to slide view.
         If ActiveWindow.ViewType <> ppViewSlide Then
            ActiveWindow.ViewType = ppViewSlide
         End If

         ' Switch to the source presentation.
         Presentations(1).Windows(1).Activate

      End If

      ' Change the view to slide sorter if not there already.
      If ActiveWindow.ViewType <> ppViewSlideSorter Then
         ActiveWindow.ViewType = ppViewSlideSorter
      End If

      ' Loop through all the slides and copy them to destination one by
      ' one.
      For x = 1 To SourceSlides
         ' Select the first slide in the presentation and copy it.
         ActivePresentation.Slides.Range(Array(x)).Select
         ActiveWindow.Selection.Copy

         ' Switch to destination presentation.
         Presentations(2).Windows(1).Activate

         ' Create a new slide.
         ActivePresentation.Slides.Add _
            ActivePresentation.Slides.Count + 1, ppLayoutBlank

         ' Make sure the new presentation is slide view.
         If ActiveWindow.ViewType <> ppViewSlide Then
            ActiveWindow.ViewType = ppViewSlide
         End If

         ' Switch to the proper slide.
         ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Count

         ' Paste the slide.
         ActiveWindow.View.Paste

         ' Adjust the size of the pasted object.
         With ActiveWindow.Selection.ShapeRange
            .Left = 0
            .Top = 0
            .Width = ActivePresentation.PageSetup.SlideWidth
            .Height = ActivePresentation.PageSetup.SlideHeight
         End With

         ' Unselect the object.
         ActiveWindow.Selection.Unselect

         ' Switch to source.
         Presentations(1).Windows(1).Activate

      Next x

      ' Restore the current view to source.
      ActiveWindow.ViewType = SourceView

   End Sub
				

Referencias

Para obtener más información sobre la creación de Visual Basic para aplicaciones macros, haga clic en el Ayudante de Office en Microsoft PowerPoint, escriba cómo crear una macro , haga clic en Buscar y, a continuación, haga clic para ver "Crear una macro en el Editor de Visual Basic".

Para obtener más información acerca de ejecutar Visual Basic para aplicaciones macros, haga clic en el Ayudante de Office en Microsoft PowerPoint, escriba cómo ejecutar una macro , haga clic en Buscar y, a continuación, haga clic para ver "ejecutar una macro.

Nota: Si el Ayudante está oculto, haga clic en el botón Ayudante de Office en la barra de herramientas estándar. Si el Ayudante no es capaz de responder la consulta, consulte en contacto con el siguiente artículo en Microsoft Knowledge Base:
176476OFF: Ayudante de Office respuesta no preguntas de Visual Basic
Para obtener más información acerca de cómo obtener ayuda acerca de Visual Basic para Aplicaciones, consulte el siguiente artículo en Microsoft Knowledge Base:
163435VBA: Recursos de programación para Visual Basic para aplicaciones

Propiedades

Id. de artículo: 161661 - Última revisión: miércoles, 11 de octubre de 2006 - Versión: 3.2
La información de este artículo se refiere a:
  • Microsoft PowerPoint 98 para Macintosh
  • Microsoft PowerPoint 97 Standard Edition
Palabras clave: 
kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB161661 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): 161661
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

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