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

Question

我是一个很新的excel VBA & &;我正在尝试做一些我认为很简单的事情，但是我怎么也弄不明白。

我有一个形状("shape 1")，当点击时应该显示/取消隐藏两个形状("shape 2"one_answers"形状")

默认"shape 2"形状3;应该隐藏，并且只在"形状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"one_answers"Shape3"。

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