触发器选择图形对象

banjinjiu

1、在我的第一张幻灯片中，有个图形（蓝色的矩形），名称：ActiveWindow.Selection.SlideRange.Shapes("Rectangle5")，动画中叫“矩形 2”；另一个图形（红色的圆），名称为ActiveWindow.Selection.SlideRange.Shapes("Oval6")，动画中叫“椭圆 3”。

2、矩形2已有动画“陀螺旋”，我想为它设置触发器对象的属性，就是:点击椭圆3就出现矩形2的“陀螺旋”。

3、ppt2003编辑模式手工设置比较方便，请问：用vba如何用程序设置？谢谢！

4、另这个程序好像不成功，主要的是代码第6行，有问题，请大侠帮我修改下。特别谢谢！

1. Private Sub CommandButton1_Click()
   
2. Set sld = ActiveWindow.View.Slide
   
3. Set shp = ActiveWindow.Selection.SlideRange.Shapes("Rectangle 5") '选择图形
   
4. Set seq = sld.TimeLine.MainSequence
   
5. With seq(1)
   
6.     .Timing.TriggerShape = ActiveWindow.Selection.SlideRange.Shapes("Oval 6")
   
7. End With
   
8. End Sub

复制代码

附件：

dongdonggege

自动设置触发器

1. Sub AddShapeSetTiming() '自动设置触发器
   
2.     Dim eff As Effect
   
3.     Dim shpOval As Shape '椭圆
   
4.     Dim shpRectangle As Shape '矩形
   
5.     Set shpOval = ActivePresentation.Slides(1).Shapes. _
   
6.       AddShape(Type:=msoShapeOval, Left:=400, Top:=100, Width:=100, Height:=50)
   
7. 
   
8.     Set shpRectangle = ActivePresentation.Slides(1).Shapes. _
   
9.       AddShape(Type:=msoShapeRectangle, Left:=100, Top:=100, Width:=50, Height:=50)
   
10. 
    
11.     Set eff = ActivePresentation.Slides(1).TimeLine. _
    
12.       InteractiveSequences.Add().AddEffect(Shape:=shpRectangle, _
    
13.       effectId:=msoAnimEffectSpin, trigger:=msoAnimTriggerOnShapeClick)
    
14. 
    
15.     With eff.Timing
    
16.         .Duration = 8
    
17.         .TriggerShape = shpOval
    
18.         .TriggerType = msoAnimTriggerOnShapeClick
    
19.     End With
    
20. End Sub

复制代码