触发器选择图形对象
1、在我的第一张幻灯片中，有个图形（蓝色的矩形），名称：ActiveWindow.Selection.SlideRange.Shapes("Rectangle5")，动画中叫“矩形 2”；另一个图形（红色的圆），名称为ActiveWindow.Selection.SlideRange.Shapes("Oval6")，动画中叫“椭圆 3”。2、矩形2已有动画“陀螺旋”，我想为它设置触发器对象的属性，就是:点击椭圆3就出现矩形2的“陀螺旋”。
3、ppt2003编辑模式手工设置比较方便，请问：用vba如何用程序设置？谢谢！
4、另这个程序好像不成功，主要的是代码第6行，有问题，请大侠帮我修改下。特别谢谢！
[*]Private Sub CommandButton1_Click()
[*]Set sld = ActiveWindow.View.Slide
[*]Set shp = ActiveWindow.Selection.SlideRange.Shapes("Rectangle 5") '选择图形
[*]Set seq = sld.TimeLine.MainSequence
[*]With seq(1)
[*] .Timing.TriggerShape = ActiveWindow.Selection.SlideRange.Shapes("Oval 6")
[*]End WithEnd Sub
复制代码
附件：
页:
[1]