Dzwebs.Net

撰写电脑技术杂文十余年

ScaleEffect对象与VBA

Admin | 2013-8-22 8:15:02 | 被阅次数 | 4528

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  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


该杂文来自: PowerPoint杂文

上一篇:Ruler、RulerLevel和RulerLevels集合对象在幻灯片

下一篇:演示文稿的Selection对象

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计