隱藏/取消隱藏多個形狀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