VBA PowerPoint Animaciones ES

Hola chavos en esta ocasión les voy a ensenar como añadir animaciones a un objeto y transiciones a diapositivas atravez de VBA. Como siempre primero deben de tener habilitada la pestaña Developer o Desarrollador (Dependiendo el idioma) en su Office (click aqui para ver), después solo tenemos que crear una macro, para eso seguimos algunos pasos del post anterior y agregamos o modificamos el siguiente código:

Sub createAnimations()
    'Declare variables which contains all the objects
    'Declaramos las variables    Dim sld As Slide
    Dim rect As Shape
    Dim Pre As Presentation
   
    'Set some value to the variables
    'Asignamos las variables    Set Pre = ActivePresentation
    Set sld = Pre.Slides.Add(Index:=Pre.Slides.Count + 1, Layout:=ppLayoutBlank)
    Set rect = sld.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100)
   
    'Slides Transitions
    'Asignamos unas transiciones a nuestras diapositivas    With sld.SlideShowTransition
        .AdvanceOnClick = msoCTrue
        .EntryEffect = ppEffectCircleOut
    End With
   
    'Animate the shapes
    'Agregamos algunos efectos a las diapositivas    With rect.AnimationSettings
        .EntryEffect = ppEffectCrawlFromDown
        .Animate = msoCTrue
    End With
End Sub

Como pueden observar es muy fácil entenderle al código, para agregar o modificar las transiciones se usa la linea:

Slide.SlideShowTransition.EntryEffect = ppEffectCircleOut
Nada mas después del "=" se coloca el tipo de transición que se desea. Y para agregar las animaciones a los objetos usamos la siguiente linea:

rect.AnimationSettings.EntryEffect = ppEffectCrawlFromDown

Y al igual que en las transiciones, después del "=" se pone el efecto que se desea.

CONSEJO RÁPIDO: algunos efectos no aplican para las transiciones o viceversa, así que deben de tener cuidado, ya que de lo contrario su presentación puede "tronar". Así que pues tengan cuidado cuando escojan sus efectos.

Bueno chavos, esto es todo por ahora espero les haya servido mucho y pues cualquier pueden dejarme sus comentarios y/o preguntas y tratare de resolverlas tan pronto como me sea posible, bueno me despido chavos, adiós ^_^/