6、深入探索Microsoft PowerPoint 2003的VB编程

最新推荐文章于 2025-12-15 16:25:51 发布

y4z5a6b7

最新推荐文章于 2025-12-15 16:25:51 发布

阅读量14

点赞数

CC 4.0 BY-SA版权

分类专栏： PowerPoint VBA编程精要文章标签： PowerPoint 2003 VB编程动画设置

本文链接：https://blog.youkuaiyun.com/y4z5a6b7/article/details/155386729

PowerPoint VBA编程精要专栏收录该内容

45 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

深入探索Microsoft PowerPoint 2003的VB编程

1. 动画设置基础

在PowerPoint 2003中，利用Visual Basic可以实现丰富的动画效果。以下代码展示了如何创建一个自定义动画效果，改变形状的填充颜色：

Dim effCustom As Effect
Dim aniBehavior As AnimationBehavior
Dim aptNewPoint As AnimationPoint
Set sldNewSlide = ActivePresentation.Slides.Add _
    (Index:=1, Layout:=ppLayoutBlank)
Set shpHeart = sldNewSlide.Shapes.AddShape _
    (Type:=msoShapeHeart, Left:=100, Top:=100, _
    Width:=200, Height:=200)
Set effCustom = sldNewSlide.TimeLine.MainSequence _
    .AddEffect(shpHeart, msoAnimEffectCustom)
Set aniBehavior = effCustom.Behaviors.Add(msoAnimTypeProperty)
With aniBehavior.PropertyEffect
    .Property = msoAnimShapeFillColor
    Set aptNewPoint = .Points.Add
    aptNewPoint.Time = 0.2
    aptNewPoint.