Propiedad EffectParameters.Color2 (PowerPoint)

Devuelve un objeto ColorFormat que representa el color final de una animación de ciclo de color.

Sintaxis

expresión. Color2

Expresión Variable que representa un objeto EffectParameters .

Valor devuelto

ColorFormat

Ejemplo:

En el siguiente ejemplo se agrega una forma, una animación de relleno a la forma y, a continuación, se informa de los colores de relleno iniciales y finales.

Sub SetStartEndColors()

    Dim effChangeFill As Effect
    Dim shpCube As Shape
    Dim a As AnimationBehavior

    'Adds cube and set fill effect
    Set shpCube = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeCube, Left:=300, _
        Top:=300, Width:=100, Height:=100)

    Set effChangeFill = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpCube, _
        effectId:=msoAnimEffectChangeFillColor)

    'Sets duration of effect and displays a message containing
    'the starting and ending colors for the fill effect
    effChangeFill.Timing.Duration = 3
    MsgBox "Start Color = " & effChangeFill.EffectParameters _
        .Color1 & vbCrLf & "End Color = " & effChangeFill _
        .EffectParameters.Color2

End Sub

Consulte también

Objeto EffectParameters

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.