シート上の全ての図形を一括削除したり、大きさを整えたりする際、一つ一つ図形を選択していませんか？
シンプルなコードではありますが、ここではシート上の全ての図形を選択するコードを紹介します。
ソースコード
ソースコードは以下になります。
'-------------------------------------------
'概要：アクティブシート上の全ての図形を選択
'-------------------------------------------
Sub SelectAllShapes()
ActiveSheet.Shapes.SelectAll
End Sub
コメント