ScaleEffect对象与VBA
ScaleEffect对象代表 AnimationBehavior 对象的缩放效果。
使用 ScaleEffect 对象
使用 AnimationBehavior 对象的 ScaleEffect 属性返回 ScaleEffect 对象。以下示例引用了给定动画动作的缩放效果。
ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).ScaleEffect
使用 ScaleEffect 对象的 ByX、ByY、FromX、FromY、ToX 和 ToY 属性操纵对象的缩放。本示例对第一张幻灯片中的第一个形状进行缩放，该形状由零开始增长至其初始大小的 100%。本示例假定第一张幻灯片中有一个形状。
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
我卷了~~~~~~~ 不错啊! 一个字牛啊!
页:
[1]