Klasse AnimationPoint (PowerPoint VBA)

Die Klasse AnimationPoint stellt einen einzelnen Animationspunkt eines Animationsverhaltens dar. AnimationPoint -Objekt ist ein Element der AnimationPoints -Auflistung. Die AnimationPoints -Auflistung enthält alle Animationspunkte eines Animationsverhaltens.

Set

Um eine AnimationPoint -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim apt as AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(Index:=1)

Die folgenden Prozeduren können zum Festlegen der AnimationPoint Klassenvariablen verwendet werden : AnimationPoints.Item, AnimationPoints.Add und PropertyEffect.Points

Delete

Löscht das angegebene AnimationPoint-Objekt.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Delete

Formula

Zurückgeben oder Festlegen einer Zeichenfolge, die eine Formel zur Berechnung einer Animation darstellt. Lese-/Schreibzugriff.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Formula = RGB(Red:=255, Green:=255, Blue:=255)

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Time

Legt die Zeit an einem bestimmten Animationspunkt fest oder gibt sie zurück. Lese-/Schreibzugriff.

Der Wert der time -Eigenschaft kann ein beliebiger Gleitkommawert zwischen 0 und 1 sein, der einen Prozentsatz der gesamten Zeitachse zwischen 0% und 100% darstellt. Beispielsweise würde Wert 0,2 zu einem Zeitpunkt bei 20 % der gesamten Zeitachsendauer von links nach rechts entsprechen.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Time = 0.2

Value

Gibt den Wert einer Eigenschaft für einen Animationspunkt zurück oder legt diesen Wert fest. Lese-/Schreibzugriff.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(1).Value = RGB(0, 255, 0)

AnimationPoints.Add

Gibt ein AnimationPoint -Objekt zurück, das einen neuen Animationspunkt darstellt.

Syntax : expression.Add (Index)

Index: Die Position des Animationspunkts im Verhältnis zu anderen Animationspunkten. Der Standardwert ist -1 und bedeutet, dass bei Weglassen des Index-Parameters der neue Animationspunkt am Ende der vorhandenen Animationspunkte hinzugefügt wird.

Dim apt As AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Add()

AnimationPoints.Count

Gibt die Anzahl von Objekten in der angegebenen Auflistung zurück. Schreibgeschützt.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Count

AnimationPoints.Item

Gibt ein einzelnes AnimationPoint -Objekt aus der angegebenen AnimationPoints -Auflistung zurück.

Syntax : expression.Item (Index)

Index: Die Indexnummer des einzelnen AnimationPoint -Objekts in der Auflistung, das zurückgegeben werden soll.

Dim apt As AnimationPoint
Set apt = ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points(Index:=1)

AnimationPoints.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

AnimationPoints.Smooth

Bestimmt, ob der Übergang von einem Animationspunkt zu einem anderen geglättet werden soll. Lese-/Schreibzugriff.

Der Wert der Smooth -Eigenschaft kann eine der folgenden MsoTriState -Konstanten sein.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors(1).PropertyEffect.Points.Smooth = msoTrue