隐藏/取消隐藏多个形状Excel VBA

Question

我对 excel VBA 和宏非常陌生，我正在尝试做一些我认为非常简单的事情，但我一生都无法弄清楚。

我有一个形状（“形状 1”），单击时应显示/取消隐藏两个形状（“形状 2”和“形状 3”）。

默认情况下，“shape 2”和“shape 3”应该是隐藏的，只有在“shape 1”被选中时才会出现。

任何帮助将不胜感激，记住我在这里是一个完全的新手！

编辑：

我已经设法使用下面的内容，基本上是从这里复制粘贴，我不知道它是什么意思，但它适用于单个按钮。 我不知道如何扩展代码以包含显示/隐藏的多个对象。 与“july_2022”同时显示/隐藏的第二个对象的示例是“august_2022”。

Public HIDE As Boolean

Sub fy ()
ActiveSheet.Shapes("july_2022").Visible = HIDE
If ActiveSheet.Shapes("july_2022").Visible = False Then
HIDE = True
Else
HIDE = False
End If
End Sub

Answer 1

ActiveSheet.Shapes("july_2022").Visible = HIDE是设置形状可见性的部分（ july_2022 ）。 另一条相同的线，但不是july_2022会影响第二个形状。 其余代码（ If.. Then.. Else.. End If ）可以替换为HIDE=Not(HIDE) 。

例如，以下代码在运行时将“切换”活动工作表上名为“Shape2”和“Shape3”的两个形状的可见性。

Public HIDE As Boolean

Sub fy()
    ActiveSheet.Shapes("Shape2").Visible = HIDE
    ActiveSheet.Shapes("Shape3").Visible = HIDE
    HIDE = Not (HIDE)
End Sub