关于ppt触发器的，用程序代码

dongdonggege

大家好，我在使用ppt的过程中，学习使用程序——设置触发器，网上看的资料，好像不准确。我从这个网看的：http://www.feiesoft.com/vba/powerpoint/ppprotriggertype.htm

比如，在视图界面中，我给一个图形设置了百叶窗动画，如果用手工设置触发器，不是太难。如何使用程序设置这个动画的触发器？麻烦大侠！
我上传一个附件：
1、蓝色矩形有动画，红色圆形无动画。
2、使用程序——让蓝色矩形有触发器，触发器是矩形或圆形，无所谓，不是手工设置就行。
3、我使用的是2003版。
谢谢了！

shenjianrong163

1. Sub test()
   
2.     Dim shp As Shape, osp As Shape, oEffect As Effect
   
3.     On Error Resume Next
   
4.     With ActivePresentation.Slides(1)
   
5.         Set shp = .Shapes("Rectangle 4") '矩形
   
6.         Set osp = .Shapes("Oval 5")      '圆
   
7.         Set oEffect = .TimeLine.InteractiveSequences.Add().AddEffect(Shape:=shp, effectId:=msoAnimEffectBlinds, trigger:=msoAnimTriggerOnShapeClick) '给shp添加百叶窗动画
   
8.         With oEffect.Timing
   
9.             .TriggerShape = osp '单击osp触发
   
10.         End With
    
11.     End With
    
12. End Sub

复制代码

dongdonggege

shenjianrong163 发表于 2022-3-5 13:37

多年前的帖子，能被老师发现，重视，很感谢。关键是，系统也不提醒我。