Klasse Effect (PowerPoint VBA)

Die Klasse Effect stellt Anzeigedauerinformationen zu einer Folienanimation dar.

Die wichtigste Prozedur der Klasse Effect ist Delete

Set

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

Dim eff as Effect
Set eff = ActivePresentation.SlideMaster.TimeLine.MainSequence(Index:=1)

Die folgenden Prozeduren können zum Festlegen der Effect Klassenvariablen verwendet werden : Sequence.Item, Sequence.Clone, Sequence.AddEffect, Sequence.AddTriggerEffect, Sequence.ConvertToAfterEffect, Sequence.ConvertToAnimateBackground, Sequence.ConvertToAnimateInReverse, Sequence.ConvertToBuildLevel, Sequence.ConvertToTextUnitEffect, Sequence.FindFirstAnimationFor, Sequence.FindFirstAnimationForClick, Sequences.Item, Sequences.Add und TimeLine.MainSequence

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Add with its procedures Sequence.AddEffect und Sequence.AddTriggerEffect

Methoden

Dies ist die Hauptmethode der Klasse Effect

Delete - Löscht das angegebene Effect -Objekt.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Delete

Andere Methoden

Sequence.Clone - Erstellt eine Kopie eines Effect -Objekts und fügt sie der Sequences -Auflistung an der angegebenen Indexposition hinzu.

Dim effClone As Effect
Set effClone = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Clone(Effect:=)

Sequence.ConvertToAfterEffect - Gibt an, was eines Animationseffekts nachdem der Importvorgang abgeschlossen ist. Gibt ein Effect -Objekt, das eine Nachwirkung darstellt.

Dim effConvertToAfterEffect As Effect
Set effConvertToAfterEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAfterEffect(Effect:=, After:=msoAnimAfterEffectDim)

Sequence.ConvertToAnimateBackground - Bestimmt, ob der Hintergrund separat von animiert werden soll, oder zusätzlich zu der zugehörige Text. Gibt ein Effect -Objekt, das den geänderten Animationseffekt darstellt.

Dim effConvertToAnimateBackground As Effect
Set effConvertToAnimateBackground = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAnimateBackground(Effect:=, AnimateBackground:=msoTrue)

Sequence.ConvertToAnimateInReverse - Bestimmt, ob Text in umgekehrter Reihenfolge animiert werden soll. Gibt ein Effect -Objekt, das die Textanimation darstellt.

Dim effConvertToAnimateInReverse As Effect
Set effConvertToAnimateInReverse = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToAnimateInReverse(Effect:=, animateInReverse:=msoTrue)

Sequence.ConvertToBuildLevel - Ändert die Informationen der Erstellungsebene für einen angegebenen Animationseffekt. Gibt ein Effect -Objekt zurück, das die Erstellungsebene darstellt.

Dim effConvertToBuildLevel As Effect
Set effConvertToBuildLevel = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToBuildLevel(Effect:=, Level:=msoAnimateChartAllAtOnce)

Sequence.ConvertToTextUnitEffect - Gibt ein Effect -Objekt, das wie Textanimation darstellt.

Dim effConvertToTextUnitEffect As Effect
Set effConvertToTextUnitEffect = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.ConvertToTextUnitEffect(Effect:=, unitEffect:=msoAnimTextUnitEffectByCharacter)

Eigenschaften

Behaviors Gibt ein angegebenes Folienanimationsverhalten als die AnimationBehaviors -Auflistung zurück.

Dim absBehaviors As AnimationBehaviors
Set absBehaviors = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Behaviors

DisplayName Gibt den Namen eines Animationseffekts zurück. Schreibgeschützt.

Dim strDisplayName As String
strDisplayName = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).DisplayName

EffectInformation Gibt ein EffectInformation -Objekt zurück, das Informationen für den angegebenen Animationseffekt darstellt.

Dim einEffectInformation As EffectInformation
Set einEffectInformation = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectInformation

EffectParameters Gibt ein EffectParameters -Objekt zurück, das Eigenschaften von Animationseffekten darstellt.

Dim epsEffectParameters As EffectParameters
Set epsEffectParameters = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectParameters

EffectType Legt fest oder gibt eine MsoAnimEffect -Konstante, die vom Typ Effekt Animation darstellt. Lese-/Schreibzugriff.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).EffectType = msoAnimEffect3DArrive

Exit Bestimmt, ob es sich beim Animationseffekt um einen Ausgangseffekt handelt. Lese-/Schreibzugriff.

ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Exit = msoTrue

Index Gibt einen Long, der die Indexnummer für einen Animationseffekt oder eine Entwurfsvorlage darstellt. Schreibgeschützt.

Dim lngIndex As Long
lngIndex = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Index

Paragraph Gibt den Absatz in einem Textbereich zurück, dem Animationseffekte zugewiesen werden sollen, oder legt diesen Absatz fest. Lese-/Schreibzugriff.

ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Paragraph =

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

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Parent

Shape Gibt ein Shape -Objekt, das eine animierte Form darstellt.

Set ActivePresentation.SlideMaster.TimeLine.MainSequence(1).Shape =

TextRangeLength Zurückgeben oder Festlegen einer Long, der die Länge eines Textbereichs darstellt. Schreibgeschützt.

Dim lngTextRangeLength As Long
lngTextRangeLength = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).TextRangeLength

TextRangeStart Gibt den Anfang eines Textbereichs zurück oder legt ihn fest. Schreibgeschützt.

Dim lngTextRangeStart As Long
lngTextRangeStart = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).TextRangeStart

Timing Gibt ein Timing -Objekt, das die Anzeigedauereigenschaften für eine Animationssequenz enthält darstellt.

Dim tmnTiming As Timing
Set tmnTiming = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Timing

Sequence.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.Count

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

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Parent