如何使用VBA使PPT中的对象消失？

Question

我试图使用VBA使PPT中的对象消失。我可以通过多种方式使对象出现，但我不知道如何让它消失。

我写了下面的代码，但它不起作用。它看起来像＆＃34; msoAnimEffectDisappear＆＃34;不存在。

Set Benny = ActiveWindow.View.Slide

 ActiveWindow.View.Slide.Shapes("textbox 114").Select

y = ActiveWindow.Selection.ShapeRange.Name

Set Sh = ActiveWindow.Selection.ShapeRange(y)

Benny.TimeLine.MainSequence.AddEffect Sh, msoAnimEffectDisappear, , msoAnimTriggerWithPrevious

Answer 1

ActiveWindow.View.Slide.Shapes("textbox 114").Visible = False