ScaleEffect object (PowerPoint)
Represents a scaling effect for an AnimationBehavior object.
Use the ScaleEffectproperty of the AnimationBehavior object to return a ScaleEffect object. The following example refers to the scale effect for a given animation behavior.
Use the ByX, ByY, FromX, FromY, ToX, and ToYproperties of the ScaleEffect object to manipulate an object's scale. This example scales the first shape on the first slide starting at zero increasing in size until it reaches 100 percent of its original size. This example assumes that there is a shape on the first slide.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.