Excelの特定のオブジェクトを非表示/表示する

Question

Excelシート内に四角形、星、吹き出しなどの複数の図形があります。

私は、一連の図形を非表示にするか、または表示するためのボタンが必要です。たとえば、1つのボタンですべての矩形を消してから、そのボタンを再度クリックすることで表示させることができます。

関連する質問がありますが、構文に従うことができませんでした。

Answer 1

非プログラマのための

ほとんどストレートバージョン：

Sub Button1_Click() 
    If ActiveSheet.Shapes("Rectangle 1").Visible Then 
     ActiveSheet.Shapes("Rectangle 1").Visible = False 
    Else 
     ActiveSheet.Shapes("Rectangle 1").Visible = True 
    End If 
End Sub 

短いバージョン：

ActiveSheet.Shapes("Rectangle 1").Visible = Not ActiveSheet.Shapes("Rectangle 1").Visible