VBA～全ての図やグラフを非表示にしよう～Excel

VBAでシート上の全ての図やグラフなどのオブジェクトを非表示にしたい場合はShapeRange.VisibleプロパティをFalseに設定します。

アクティブシート

下のコードを実行するとアクティブシートの全てのオブジェクトが非表示になります。

Sub test1()

ActiveSheet.Shapes.SelectAll

Selection.ShapeRange.Visible = False

End Sub

シートを指定して非表示

指定したシートで全てのオブジェクトを非表示にした場合はまず、シートをアクティブにします。

下のコードを実行するとSheet2の全てのオブジェクトが非表示になります。

Sub test2()

Worksheets("Sheet2").Activate

ActiveSheet.Shapes.SelectAll

Selection.ShapeRange.Visible = False

End Sub

ブックを指定して非表示

指定したブックで全てのオブジェクトを非表示にした場合はまず、ブックをアクティブにします。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1の全てのオブジェクトが非表示になります。

Sub test3()

Workbooks("Book1.xlsx").Worksheets("Sheet1").Activate

ActiveSheet.Shapes.SelectAll

Selection.ShapeRange.Visible = False

End Sub

再表示

全てのオブジェクトを再表示したい場合は下のコードを実行します。

Sub test4()

For i = 1 To ActiveSheet.Shapes.Count

ActiveSheet.Shapes(i).Visible = True

Next

End Sub