vba添加“放大/缩小”的动画后，怎样设置放大的倍数

shenjianrong163

在PPT中，用VBA代码添加“放大/缩小”的动画，默认的放大倍数是150%，比如想将放大倍数改为200%，VBA代码怎么写？谢谢！

1. Sub test() 'vba添加“放大/缩小”的动画后，怎样设置放大的倍数
   
2.     Dim sp As Shape, sld As Slide, teff As Effect
   
3.     Set sld = ActivePresentation.Slides(1)
   
4.     Set sp = sld.Shapes(1)
   
5.     Set teff = sld.TimeLine.MainSequence.AddEffect(Shape:=sp, effectId:=msoAnimEffectGrowShrink, Trigger:=msoAnimTriggerOnPageClick)  '放大/缩小

复制代码

vba添加“放大缩小”的动画后，怎样设置放大的倍数.rar (311.38 KB, 下载次数: 19)

2021-10-11 08:56 上传

点击文件名下载附件

dongdonggege

我给你发的信息都没回
参考：

1. Sub test() 'vba添加“放大/缩小”的动画后，怎样设置放大的倍数
   
2.     Dim sp As Shape, sld As Slide, teff As effect
   
3.     Set sld = ActivePresentation.Slides(1)
   
4.     Set sp = sld.Shapes(1)
   
5.     Set teff = sld.TimeLine.MainSequence.AddEffect(Shape:=sp, effectId:=msoAnimEffectGrowShrink, Trigger:=msoAnimTriggerOnPageClick)  '放大/缩小
   
6.     With teff
   
7.         .Behaviors(1).ScaleEffect.ByX = 300
   
8.         .Behaviors(1).ScaleEffect.ByX = 400
   
9.     End With
   
10. End Sub

复制代码

试试吧。

shenjianrong163

dongdonggege 发表于 2021-10-20 09:56
我给你发的信息都没回
参考：

是忙忘了,能再发下没有回复帖子的网址吗？谢谢！