ColorEffect.To-Eigenschaft (PowerPoint)

Artikel
10/16/2024

Legt fest oder gibt ein ColorFormat -Objekt, das den RGB-Farbwert eines Animationsverhaltens darstellt. Lese-/Schreibzugriff.

Syntax

Ausdruck. To

Ausdruck Eine Variable, die ein ColorEffect-Objekt darstellt.

Rückgabewert

ColorFormat

Hinweise

Verwenden Sie diese Eigenschaft in Verbindung mit der von -Eigenschaft für den Übergang von einer Farbe in eine andere.

Verwechseln Sie nicht diese Eigenschaft mit der ToX oder ToY -Eigenschaften der Objekte ScaleEffect und MotionEffect -Objekte, die nur zum Skalieren oder für Bewegungseffekte verwendet werden.

Beispiel

In diesem Beispiel wird ein Farbeffekt hinzugefügt und dessen Farbe von einem hellen Blaugrün in Gelb geändert.

Sub AddAndChangeColorEffect()

    Dim effBlinds As Effect
    Dim tmlTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColor As AnimationBehavior
    Dim clrEffect As ColorEffect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set tmlTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)

    Set animColor = tmlTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeColor)

    Set clrEffect = animColor.ColorEffect
    clrEffect.From.RGB = RGB(Red:=255, Green:=255, Blue:=0)
    clrEffect.To.RGB = RGB(Red:=0, Green:=255, Blue:=255)

End Sub

Siehe auch

ColorEffect-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über