触发器选择图形对象

dgjsldkjg

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
  

复制代码
附件：