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

Deja un comentario