动画效果的复制与粘贴

lonewalker

Sub 动画效果的复制与粘贴()
Set myDocument = ActivePresentation.Slides(1)
With myDocument
.Shapes(1).PickupAnimation
'从第二个形状开始, 一次粘贴动画
For i = 2 To .Shapes.Count
.Shapes(i).ApplyAnimation
Next i
End With
End Sub