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

Question

我对 excel VBA 和宏非常陌生，我正在尝试做一些我认为非常简单的事情，但我一生都无法弄清楚。
我有一个形状(“形状 1”)，单击时应显示/取消隐藏两个形状(“形状 2”和“形状 3”)。
默认情况下，“shape 2”和“shape 3”应该是隐藏的，只有在“shape 1”被选中时才会出现。
任何帮助将不胜感激，记住我在这里是一个完全的新手!
编辑:
我已经设法使用以下内容，基本上是来自 here 的复制粘贴，我不知道这是什么意思，但它适用于单个按钮。我不知道如何扩展代码以包含显示/隐藏的多个对象。与“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