PPT: Código de VB de ejemplo para crear una presentación con diapositivas personalizada


ppoint

Microsoft PowerPoint tiene una característica de presentación personalizada que le permite mostrar algunas de las diapositivas en una presentación como una presentación con diapositivas o volver a ordenar las diapositivas cuando se ejecuta una presentación con diapositivas.

Este artículo contiene un ejemplo de Visual Basic para Aplicaciones de Microsoft macro (procedimiento Sub) a la que se crea una presentación personalizada. La macro crea una presentación personalizada que incluye todas las diapositivas de la presentación activa. Puede modificar el código para seleccionar las diapositivas que desea formar parte de la presentación personalizada.

http://support.microsoft.com/kb/165217/es

Procedimiento de ejemplo de Visual Basic 

Sub CreateCustomShow()

 

   On Error Resume Next

 

   ‘Change this value to the name you want to use for your

   ‘custom slide show.

   Const strDefaultName As String = “My Custom Show”

 

   Dim lNumSlides, lSlideList(), lCount As Long

   Dim oSlide As Slide

   Dim strPrompt, strShowName As String

   Dim Continue As Boolean: Continue = False

 

   ‘Get the number of slides in the active presentation.

   lNumSlides = ActivePresentation.Slides.Count

 

   ‘Make sure at least 1 slide is in the presentation.

   If lNumSlides < 1 Then

     MsgBox “No slides in the presentation.”, vbExclamation, “No Slides”

     End

   End If

 

   ‘Initialize the counter.

   lCount = 0

 

   ‘Loop through the slides in the presentation.

   For Each oSlide In ActivePresentation.Slides

 

      ‘Make the array one element larger.

      ReDim Preserve lSlideList(lCount)

 

      ‘Add the slide id to the array.

      lSlideList(lCount) = oSlide.SlideID

 

      ‘Increment the counter.

      lCount = lCount + 1

 

   Next oSlide

 

   ‘Reset the counter

   lCount = 0

 

   ‘Set the name of the custom show to the default.

   strShowName = strDefaultName

 

   ‘Loop until a custom show is created.

   Do

 

      ‘Increment the counter.

      lCount = lCount + 1

 

      With ActivePresentation.SlideShowSettings.NamedSlideShows

 

         ‘Clear the error object.

         Err.Clear

 

         ‘Create the custom show.

         .Add strShowName, lSlideList

 

         ‘Check to see if an error occurred creating the show.

         ‘A run-time error occurs if the custom show name you specify

         ‘is already being used.

         If Err.Number <> 0 Then

 

            ‘Change the name of the custom show

            strShowName = strDefaultName & ” ” & CStr(lCount)

         Else

            Continue = True

         End If

 

      End With

 

   Loop While Continue = False

 

   ‘Create and then display message box.

   strPrompt = “Successfully created custom show named ” & strShowName _

    & “. To view the show:” & Chr(13) & Chr(13) _

    & Chr(9) _

    & “1. On the Slide Show menu, click Custom Shows.” _

    & Chr(13) & Chr(9) _

    & “2. Highlight the custom show you want to run.” _

    & Chr(13) & Chr(9) _

    & “3. Click the show button to run the show.” _

    & Chr(13) & Chr(13) _

    & “NOTE: If the Custom Shows dialog box is visible ” _

    & “when you run this macro. Close and” _

    & Chr(13) _

    & “then reopen the dialog box to see the updated custom show list.”

   MsgBox strPrompt, vbInformation, “Custom Show Created!”

 

End Sub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s