Dzwebs.Net

撰写电脑技术杂文十余年

Effect对象、EffectInformation对象、EffectParameters对象在VBA中的实例

Admin | 2013-2-11 9:54:35 | 被阅次数 | 5897

温馨提示!

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

  一、Effect对象

  代表有关幻灯片动画的计时信息。

  使用 Effect 对象

  使用 AddEffect 方法添加一个效果。本示例在当前演示文稿的第一张幻灯片中添加一个形状,并为该形状添加一种效果和一个动作。

Sub NewShapeAndEffect()
    Dim shpStar As Shape
    Dim sldOne As Slide
    Dim effNew As Effect

    Set sldOne = ActivePresentation.Slides(1)
    Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _
        Left:=150, Top:=72, Width:=400, Height:=400)
    Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _
        EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)
    With effNew
        With .Behaviors.Add(msoAnimTypeScale).ScaleEffect
            .FromX = 75
            .FromY = 75
            .ToX = 0
            .ToY = 0
        End With
        .Timing.AutoReverse = msoTrue
    End With
End Sub

  若要引用现有的 Effect 对象,请使用 MainSequence(index),其中 index 是 Effect 对象在 Sequence 集合中的编号。本示例更改第一个序列的效果并为该效果指定动作。

Sub ChangeEffect()
    With ActivePresentation.Slides(1).TimeLine _
        .MainSequence(1)
        .EffectType = msoAnimEffectSpin
        With .Behaviors(1).RotationEffect
            .From = 100
            .To = 360
            .By = 5
        End With
    End With
End Sub

  不管幻灯片是否有动画,每张幻灯片中至少有一个 Effect 对象。

  二、EffectInformation对象

  代表 Effect 对象的各种动画选项。

  使用 EffectInformation 对象

  使用 EffectInformation 对象的成员返回 Effect 对象的当前状态(例如,动画播放后的效果、背景是否与相应的文本一起动画显示、文本是否要反向动画显示、播放设置、声音效果、文本创建动作等等)。EffectInformation 对象的所有成员都是只读的。若要更改任何效果信息属性,必须使用相应的 Sequence 对象的方法。

  使用 Effect 对象的 EffectInformation 属性返回 EffectInformation 对象。以下示例设置主动画序列中的播放设置的 HideWhileNotPlaying 属性。

Sub HideEffect()
    ActiveWindow.Selection.SlideRange(1).TimeLine _
        .MainSequence(1).EffectInformation.PlaySettings _
        .HideWhileNotPlaying = msoTrue
End Sub

  三、EffectParameters对象

  代表 Effect 对象的各种动画参数,如颜色、字体、大小和方向。

  使用 EffectParameters 对象

  使用 Effect 对象的 EffectParameters 属性返回 EffectParameters 对象。以下示例创建一个形状,然后设置填充效果并更改起始和结束填充颜色。

Sub effParam()
    Dim shpNew As Shape
    Dim effNew As Effect

    Set shpNew = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeHeart, Left:=100, _
        Top:=100, Width:=150, Height:=150)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpNew, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)

    With effNew.EffectParameters
        .Color1.RGB = RGB(Red:=0, Green:=0, Blue:=255)
        .Color2.RGB = RGB(Red:=255, Green:=0, Blue:=0)
    End With

 End Sub


该杂文来自: PowerPoint杂文

上一篇:DocumentWindow对象、DocumentWindows集合对象

下一篇:ExtraColors对象和FillFormat对象

网站备案号:

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

版权属性:

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

联系方式:

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