PowerPoint VBA教程:ColorEffect对象

   
AnimationBehavior
ColorEffect
ColorFormat

代表动画动作的一种颜色效果。

使用 ColorEffect对象

使用AnimationBehavior对象的ColorEffect属性返回 ColorEffect对象。颜色效果可以使用 ColorEffect对象的FromTo属性更改,如下所示。颜色效果最初使用 To属性设置,然后可以使用By属性按指定的编号进行更改。以下示例向当前演示文稿的第一张幻灯片中添加一个形状,并且将颜色效果动画动作设置为更改新形状的填充颜色。


Sub ChangeColorEffect()
    Dim sldFirst As Slide
    Dim shpHeart As Shape
    Dim effNew As Effect
    Dim bhvEffect As AnimationBehavior
    Set sldFirst = ActivePresentation.Slides(1)
    Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
        Left:=100, Top:=100, Width:=100, Height:=100)
    Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)
    Set bhvEffect = effNew.Behaviors.Add(Type:=msoAnimTypeColor)
    With bhvEffect.ColorEffect
        .From.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .To.RGB = RGB(Red:=0, Green:=0, Blue:=255)
    End With
End Sub

上页:PowerPoint VBA教程:CellRange集合对象 下页:PowerPoint VBA教程:ColorFormat对象

PowerPoint VBA教程:ColorEffect对象

PowerPoint VBA教程:ColorFormat对象 PowerPoint VBA教程:ColorScheme对象
PowerPoint VBA教程:ColorSchemes集合对象 PowerPoint VBA教程:Column对象
PowerPoint VBA教程:Columns集合对象 PowerPoint VBA教程:Comment对象
PowerPoint VBA教程:Comments集合 PowerPoint VBA教程:ConnectorFormat对象
PowerPoint VBA教程:DefaultWebOptions对象 PowerPoint VBA教程:Design对象
PowerPoint VBA教程:Designs集合 PowerPoint VBA教程:Diagram对象
PowerPoint VBA教程:DiagramNode对象 PowerPoint VBA教程:DiagramNodeChildren集合
PowerPoint VBA教程:DiagramNodes集合 PowerPoint VBA教程:DocumentWindow对象
PowerPoint VBA教程:DocumentWindows集合对象 PowerPoint VBA教程:Effect对象
PowerPoint VBA教程:EffectInformation对象 PowerPoint VBA教程:EffectParameters对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号