AnimationBehavior.ScaleEffect Property (PowerPoint)
Returns a ScaleEffect object for a given animation behavior. Read-only.
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.
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