PowerPoint VBA教程:EffectParameters对象

   
Effect
EffectParameters
ColorFormat

代表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 VBA教程:EffectInformation对象 下页:PowerPoint VBA教程:ExtraColors对象

PowerPoint VBA教程:EffectParameters对象

PowerPoint VBA教程:ExtraColors对象 PowerPoint VBA教程:FillFormat对象
PowerPoint VBA教程:Font对象 PowerPoint VBA教程:Fonts集合对象
PowerPoint VBA教程:FreeformBuilder对象 PowerPoint VBA教程:GroupShapes集合对象
PowerPoint VBA教程:HeaderFooter对象 PowerPoint VBA教程:HeadersFooters对象
PowerPoint VBA教程:Hyperlink对象 PowerPoint VBA教程:Hyperlinks集合对象
PowerPoint VBA教程:LineFormat对象 PowerPoint VBA教程:LinkFormat对象
PowerPoint VBA教程:Master对象 PowerPoint VBA教程:MotionEffect对象
PowerPoint VBA教程:NamedSlideShow对象 PowerPoint VBA教程:NamedSlideShows集合对象
PowerPoint VBA教程:ObjectVerbs对象 PowerPoint VBA教程:OLEFormat对象
PowerPoint VBA教程:Options对象 PowerPoint VBA教程:PageSetup对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号