Dzwebs.Net

撰写电脑技术杂文十余年

ppt环境下的vba中的ColorEffect 对象例子

Admin | 2012-9-16 9:43:58 | 被阅次数 | 6818

温馨提示!

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

  ColorEffect 对象:代表动画动作的一种颜色效果。

  如何使用ColorEffect对象

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

  Sub YouChangeColorEffect()

  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杂文

上一篇:PPT编程的CellRange集合

下一篇:ColorFormat、ColorScheme对象在PPT中的使用

网站备案号:

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

版权属性:

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

联系方式:

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