PowerPoint VBA教程:ColorEffect属性

返回ColorEffect对象,该对象代表指定动画动作的颜色属性。

expression.ColorEffect

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

VBA示例

本示例在当前演示文稿的第一张幻灯片中添加一个形状,并且设置一种颜色效果动作以更改新形状的填充颜色。


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教程:Color2属性 下页:PowerPoint VBA教程:ColorScheme属性

PowerPoint VBA教程:ColorEffect属性

PowerPoint VBA教程:ColorScheme属性 PowerPoint VBA教程:ColorSchemes属性
PowerPoint VBA教程:ColorType属性 PowerPoint VBA教程:Columns属性
PowerPoint VBA教程:COMAddIns属性 PowerPoint VBA教程:CommandBars属性
PowerPoint VBA教程:Comments属性 PowerPoint VBA教程:ConnectionSiteCount属性
PowerPoint VBA教程:Connector属性 PowerPoint VBA教程:ConnectorFormat属性
PowerPoint VBA教程:Container属性 PowerPoint VBA教程:Contrast属性
PowerPoint VBA教程:Count属性 PowerPoint VBA教程:Creator属性
PowerPoint VBA教程:CropBottom属性 PowerPoint VBA教程:CropLeft属性
PowerPoint VBA教程:CropRight属性 PowerPoint VBA教程:CropTop属性
PowerPoint VBA教程:CurrentShowPosition属性 PowerPoint VBA教程:CustomDocumentProperties属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号