PowerPoint VBA教程:ScaleEffect属性

返回给定动画动作的ScaleEffect对象。

expression.ScaleEffect

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

本示例对第一张幻灯片中的第一个形状进行缩放,该形状由零开始增长至其初始大小的 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教程:SaveNewWebPagesAsWebArchives属性 下页:PowerPoint VBA教程:SchemeColor属性

PowerPoint VBA教程:ScaleEffect属性

PowerPoint VBA教程:SchemeColor属性 PowerPoint VBA教程:ScreenSize属性
PowerPoint VBA教程:ScreenTip属性 PowerPoint VBA教程:Script属性
PowerPoint VBA教程:Scripts属性 PowerPoint VBA教程:SegmentType属性
PowerPoint VBA教程:Selected属性 PowerPoint VBA教程:Selection属性
PowerPoint VBA教程:Shadow属性 PowerPoint VBA教程:Shape属性
PowerPoint VBA教程:ShapeRange属性 PowerPoint VBA教程:Shapes属性
PowerPoint VBA教程:ShowandReturn属性 PowerPoint VBA教程:ShowScrollbar属性
PowerPoint VBA教程:ShowSlideAnimation属性 PowerPoint VBA教程:ShowStartupDialog属性
PowerPoint VBA教程:ShowType属性 PowerPoint VBA教程:ShowWindowsInTaskbar属性
PowerPoint VBA教程:ShowWithAnimation属性 PowerPoint VBA教程:ShowWithNarration属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号