PowerPoint VBA教程:ScaleEffect对象

   
AnimationBehavior
ScaleEffect

代表AnimationBehavior对象的缩放效果。

使用 ScaleEffect对象

使用 AnimationBehavior 对象的ScaleEffect属性返回 ScaleEffect对象。以下示例引用了给定动画动作的缩放效果。


ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).ScaleEffect

使用 ScaleEffect对象的ByXByYFromXFromYToXToY属性操纵对象的缩放。本示例对第一张幻灯片中的第一个形状进行缩放,该形状由零开始增长至其初始大小的 100%。本示例假定第一张幻灯片中有一个形状。


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

上页:PowerPoint VBA教程:RulerLevels集合对象 下页:PowerPoint VBA教程:Selection对象

PowerPoint VBA教程:ScaleEffect对象

PowerPoint VBA教程:Selection对象 PowerPoint VBA教程:Sequence集合
PowerPoint VBA教程:Sequences集合 PowerPoint VBA教程:ShadowFormat对象
PowerPoint VBA教程:Shape对象 PowerPoint VBA教程:ShapeNode对象
PowerPoint VBA教程:ShapeNodes集合对象 PowerPoint VBA教程:ShapeRange集合对象
PowerPoint VBA教程:Shapes集合对象 PowerPoint VBA教程:Slide对象
PowerPoint VBA教程:SlideRange集合对象 PowerPoint VBA教程:Slides集合对象
PowerPoint VBA教程:SlideShowSettings对象 PowerPoint VBA教程:SlideShowTransition对象
PowerPoint VBA教程:SlideShowView对象 PowerPoint VBA教程:SlideShowWindow对象
PowerPoint VBA教程:SlideShowWindows集合对象 PowerPoint VBA教程:SoundEffect对象
PowerPoint VBA教程:Table对象 PowerPoint VBA教程:TabStop对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号