如何使用VBA使一个对象在PPT中消失？答案

【问题标题】：How to make an object dissappear in PPT using VBA?如何使用VBA使一个对象在PPT中消失？
【发布时间】：2016-08-10 23:38:16
【问题描述】：

我正在尝试使用 VBA 使一个对象在 PPT 中消失。我可以让物体以多种方式出现，但我不知道如何让它消失。

我写了下面的代码，但它不起作用。看起来“msoAnimEffectDisappear”不存在。

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

【问题讨论】：

这能回答你的问题吗？ How to implement disappearing animations in VBA?
快速解答：将AddEffect的返回值赋值给effect，然后设置effect.Exit = True。

标签： vba animation powerpoint

【解决方案1】：

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

【讨论】：

非常感谢您的回答。它自己工作，但它没有集成到动画盘中。
我不明白你需要它成为动画序列的一部分。您可以尝试手动应用退出动画，然后在 VBA 中检查其属性以了解它是如何完成的。
感谢您的建议。我已经尝试过了，但它根本没有帮助。