隐藏下面幻灯片中的形状

Question

这可能很简单。我有10张幻灯片，每张幻灯片有很多形状。每张幻灯片都有一个名为＆＃34; AAA＆＃34;：

的形状

• 我去幻灯片模式
• 我在任何幻灯片中点击形状AAA。在当前幻灯片中消除形状AAA。
• 所有＆＃34;形状A＆＃34;来自以下幻灯片也消失了。
• 形状AAA的所有形状不同保持不变。

我该如何编码呢？我非常感谢你的帮助。

Answer 1

首先我将V50定义为公共变量，然后我用它：

（我使用动画来消除按钮，并在点击AAA形状时将此宏设置为运行）

  

Sub LL50（）

     

V50 = 1

     

End Sub

然后我发现这段代码可以在幻灯片更改上运行：

  

Sub OnSlideChange（）

Dim i As Integer
i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
If i <> 1 Then Exit Sub

     

如果V50 = 1那么

     

ActivePresentation.Slides（ActiveWindow.View.Slide.SlideNumber +   1）.Shapes（“AAA”）。可见=错误

     

如果

结束      

结束子