PowerPoint - 在整个演示文稿中隐藏/显示分组对象答案

【问题标题】：PowerPoint - Hide/Show Grouped Objects in Entire PresentationPowerPoint - 在整个演示文稿中隐藏/显示分组对象
【发布时间】：2021-05-09 06:59:47
【问题描述】：

我有一个包含 156 张幻灯片的 PowerPoint 演示文稿。在每张幻灯片上，我都有文本框和形状，我使用组功能将它们组合在一起，然后我在选择窗格中标记了组。在每张幻灯片上，我给每组形状赋予了相同的名称。现在这些组在所有幻灯片上都是可见的，但有时需要隐藏这些组。与其进入每张幻灯片并通过选择窗格手动隐藏这些组，我是否可以添加 VBA 来在整个演示文稿中一次隐藏或显示这些组？

更新 - 我现在有代码在我运行时成功显示和隐藏第一张幻灯片上的指定形状组：

Sub Numbers()

For i = 1 To 2

ActivePresentation.Slides(i).Shapes("Shape Group").Visible = msoTriStateToggle

Next

End Sub

为了使演示文稿的其余部分循环播放，我添加了以下代码：

Sub Numbers()

Dim sld As Slide

For Each sld In ActivePresentation.Slides

For i = 1 To 2
ActivePresentation.Slides(i).Shapes("Shape Group").Visible = 
msoTriStateToggle

Next

Next sld

End Sub

现在，当我运行此更新后的代码时，什么也没有发生。这段代码缺少什么？

【问题讨论】：

谷歌搜索 powerpoint VBA show hide shape groups 获取作为可用起点的代码。

标签： vba powerpoint

【解决方案1】：

您的原始代码逐步浏览了幻灯片 1 到 2。您在修改后的代码中留下了相同的循环。试试这个：

Sub Numbers()

Dim sld As Slide

For Each sld In ActivePresentation.Slides

sld.Shapes("Shape Group").Visible = msoTriStateToggle

Next sld

End Sub

【讨论】：