AnimationBehavior.ScaleEffect Property
Returns a ScaleEffect object for a given animation behavior. Read-only.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
ReadOnly Property ScaleEffect As ScaleEffect
Get
'Usage
Dim instance As AnimationBehavior
Dim value As ScaleEffect
value = instance.ScaleEffect
ScaleEffect ScaleEffect { get; }
Property Value
Type: Microsoft.Office.Interop.PowerPoint.ScaleEffect
ScaleEffect
Examples
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