Returns a ScaleEffect object for a given animation behavior.
Syntax
expression.ScaleEffect
expression A variable that represents an AnimationBehavior object.
Return Value
ScaleEffect
Example
This example scales the first shape on the first slide starting at zero and increasing in size until it reaches 100 percent of its original size.
| Visual Basic for Applications
|
Sub ChangeScale() Dim shpFirst As Shape Dim effNew As Effect Dim aniScale As AnimationBehavior Set shpFirst = ActivePresentation.Slides(1).Shapes(1) Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _ .AddEffect(Shape:=shpFirst, effectId:=msoAnimEffectCustom) Set aniScale = effNew.Behaviors.Add(msoAnimTypeScale) With aniScale.ScaleEffect 'Starting size .FromX = 0 .FromY = 0 'Size after scale effect .ToX = 100 .ToY = 100 End With End Sub
|
See also: