グループの形状を入力に基づいて表示/非表示にする

Question

"C18"の入力が1の場合、グループ1/2/3/4（行のグループ）は消えます。起こらない。

コード：

Private Sub Design_Click() 

    Dim TorsionGroup As ShapeRange 
    Dim Toption As Integer 

    Set Toption = Range("C18") 

    Set TorsionGroup = Shapes.Range(Array("Group 1", "Group 2", "Group 3", "Group 4")) 

    If Toption = 1 Then 
     ActiveSheet.TorsionGroup.GroupItems().Visible = False 
    Else 
     ActiveSheet.TorsionGroup.GroupItems().Visible = True 
    End If 

End Sub 

Answer 1

Public Sub Design_Click() 
    Shapes.Range(["Group "&column(a:d)]).Visible = [C18] = 1 
End Sub 

かグループのグループであれば1つのグループに、ちょうど：

Public Sub Design_Click() 
    [Group 5].Visible = [C18] = 1 
End Sub