Freigeben über


ColorEffect.By-Eigenschaft (PowerPoint)

Gibt ein ColorFormat -Objekt, das eine Änderung der Farbe des Objekts, um die angegebene Anzahl, ausgedrückt im RGB-Format darstellt. Schreibgeschützt.

Syntax

Ausdruck. By

Ausdruck Eine Variable, die ein ColorEffect-Objekt darstellt.

Hinweise

Verwechseln Sie nicht diese Eigenschaft mit der ByX oder ByY -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 die Farbe geändert. Es wird davon ausgegangen, dass die erste Folie der aktiven Präsentation mindestens eine Form enthält.

Sub AddAndChangeColorEffect()

    Dim effBlinds As Effect
    Dim tmlnShape As TimeLine
    Dim shpShape As Shape
    Dim animBehavior As AnimationBehavior
    Dim clrEffect As ColorEffect

    'Sets shape, timing, and effect
    Set shpShape = ActivePresentation.Slides(1).Shapes(1)
    Set tmlnShape = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlnShape.MainSequence.AddEffect _
        (Shape:=shpShape, effectId:=msoAnimEffectBlinds)

    'Adds animation behavior and color effect
    Set animBehavior = tmlnShape.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeColor)
    Set clrEffect = animBehavior.ColorEffect

    'Specifies color
    clrEffect.By.RGB = RGB(Red:=255, Green:=0, Blue:=0)

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.