エクセル研究室−Excelの基本的な使い方、応用技を紹介

図形オブジェクト編-エクセルのVBA集


図形オブジェクト編

全ての図形オブジェクトを削除するには?

'アクティブシートの図形を削除する例です。
Sub 図形を全て削除()
 ActiveSheet.DrawingObjects.Delete
End Sub



オートシェイプの円形の図だけを選択するには?

'アクティブシートのオートシェイプで円形の図だけを選択する例です。
Sub 円形のオートシェイプを全て選択()
 Dim C As Shape
 For Each C In ActiveSheet.Shapes
  If C.AutoShapeType = msoShapeOval Then C.Select False
 Next C
End Sub



フォームコントロール以外の図形を選択するには?

'アクティブシートのフォームコントロール以外の図形を選択する例です。
Sub フォーム以外の図形を選択()
 Dim C As Shape
 For Each C In ActiveSheet.Shapes
  If C.Type <> msoFormControl Then C.Select False
 Next C
End Sub





ページトップ