Compartir a través de

Objeto EffectParameters (PowerPoint)

  • Artículo

Representa varios parámetros de animación para un objeto Effect, como colores, fuentes, tamaños y direcciones.

Ejemplo:

Utilice la propiedad EffectParameters del objeto Effect para devolver un objeto EffectParameters. En el siguiente ejemplo se crea una forma, se establece un efecto de relleno y se cambia iniciales y finales de colores de relleno.

Sub effParam()

    Dim shpNew As Shape
    Dim effNew As Effect

    Set shpNew = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeHeart, Left:=100, _
        Top:=100, Width:=150, Height:=150)

    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpNew, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)

    With effNew.EffectParameters
        .Color1.RGB = RGB(Red:=0, Green:=0, Blue:=255)
        .Color2.RGB = RGB(Red:=255, Green:=0, Blue:=0)
    End With

End Sub

Consulte también

Referencia del modelo de objetos de PowerPoint

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.