找回密码
 立即注册
搜索

触发器选择图形对象

1
回复
642
查看
[复制链接]

3

主题

6

帖子

55

幻币

一流武者

Rank: 3Rank: 3

积分
210
QQ
2017-2-18 12:21:12 显示全部楼层 |阅读模式

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

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

3ppt2003编辑模式手工设置比较方便,请问:用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

复制代码
附件:

触发器选择图形对象.zip (9.96 KB, 下载次数: 13)
PPT学习论坛
回复

使用道具 举报

1

主题

5

帖子

67

幻币

一流武者

Rank: 3Rank: 3

积分
218
QQ
2017-2-18 13:34:40 显示全部楼层

自动设置触发器

  • Sub AddShapeSetTiming() '自动设置触发器
  •     Dim eff As Effect
  •     Dim shpOval As Shape '椭圆
  •     Dim shpRectangle As Shape '矩形
  •     Set shpOval = ActivePresentation.Slides(1).Shapes. _
  •       AddShape(Type:=msoShapeOval, Left:=400, Top:=100, Width:=100, Height:=50)

  •     Set shpRectangle = ActivePresentation.Slides(1).Shapes. _
  •       AddShape(Type:=msoShapeRectangle, Left:=100, Top:=100, Width:=50, Height:=50)

  •     Set eff = ActivePresentation.Slides(1).TimeLine. _
  •       InteractiveSequences.Add().AddEffect(Shape:=shpRectangle, _
  •       effectId:=msoAnimEffectSpin, trigger:=msoAnimTriggerOnShapeClick)

  •     With eff.Timing
  •         .Duration = 8
  •         .TriggerShape = shpOval
  •         .TriggerType = msoAnimTriggerOnShapeClick
  •     End WithEnd Sub

复制代码
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册