时间戳

首页 > 解决方案 > PowerPoint - 在整个演示文稿中隐藏/显示分组对象

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

问题描述

我有一个包含 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

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

标签： vbapowerpoint

解决方案

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

Sub Numbers()

Dim sld As Slide

For Each sld In ActivePresentation.Slides

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

Next sld

End Sub

推荐阅读