1. よねさんのExcelとWordの使い方 » 
2. エクセル2010基本講座：目次 » 
3. 図や図形の操作 » 
4. 特定のオブジェクトを削除する(VBA)

エクセル2010基本講座：特定のオブジェクトを削除する(VBA)

オブジェクトの選択　　　　　Topへ

• シート上のオブジェクトを選択する方法は　オブジェクトの選択　をご覧ください。
• ここでは、特定の種類のオブジェクトを削除する方法について書いてみます。
  たとえば、オートシェイプだけ、テキストボックスだけ、コメントだけを削除したい・・・というケースです。
• マクロ(VBA) を利用します。
  1. [開発]タブのコードグループにある[Visual Basic]を実行して、VBEを開きます。
     もしくは、[Alt]+[F11]キーを打鍵します。
     • 開発タブの表示は　開発タブを表示する　をご覧ください。
     
  2. [挿入]→[標準モジュール]を実行します。
     
  3. 標準モジュールに図のようにコードを入力します。
     • 下図は「If .Shapes(i).Type = msoTextBox Then .Shapes(i).Delete」としていますので、テキストボックスを削除する例です。
     
  4. VBEを閉じます。
  5. [開発]タブのコードグループにある[マクロ]を実行します。
     もしくは、[Alt]+[F8]キーを打鍵します。
     
  6. 入力したマクロ名を選択して[実行]ボタンをクリックします。
     
  7. 指定したオブジェクト(図形)が削除されます。

msoShapeTypeのメンバー　　　　　Topへ

• msoShapeTypeのメンバーの部分を変えることで、削除するオブジェクトを変更できます。
  

  Sub obuject_delete() 　　Dim i As Long 　　　　With Worksheets("Sheet1") 　　　　　　For i = .Shapes.Count To 1 Step -1 　　　　　　　　If .Shapes(i).Type = msoTextBox Then .Shapes(i).Delete 　　　　　　Next i 　　　　End With End Sub

• msoShapeTypeのメンバーの定数と値
  

  定数	値	内容
  msoAutoShape	1	オートシェイプ
  msoCallout	2	吹き出し　引き出し線
  msoChart	3	グラフ
  msoComment	4	コメント
  msoFreeform	5	フリーフォーム
  msoGroup	6	グループ化された図形
  msoEmbeddedOLEObject	7	埋め込みOLEオブジェクト
  msoFormControl	8	フォームコントロール
  msoLine	9	線
  msoLinkedOLEObject	10	リンクOLEオブジェクト
  msoLinkedPicture	11	リンクしている画像
  msoOLEControlObject	12	ActiveXコントロール
  msoPicture	13	画像
  msoPlaceholder	14	プレースホルダー
  msoTextEffect	15	テキスト効果
  msoMedia	16	メディア
  msoTextBox	17	テキストボックス
  msoScriptAnchor	18	スクリプトアンカー
  msoTable	19	表
  msoShapeTypeMixed	-2	値の取得のみ可能です。 他の状態の組み合わせを示します。
  msoDiagram	21	図表
  msoCanvas	20	キャンバス
  msoInk	22	インク
  msoInkComment	23	インクコメント
  msoSmartArt	24	スマートアート
  msoSlicer	25	スライサー

VBAの実行例　　　　　Topへ

• 実行前の状態
  

• テキストボックスを削除した例

  
  

  Sub obuject_delete() 　　Dim i As Long 　　　　With Worksheets("Sheet1") 　　　　　　For i = .Shapes.Count To 1 Step -1 　　　　　　　　If .Shapes(i).Type = msoTextBox Then .Shapes(i).Delete 　　　　　　Next i 　　　　End With End Sub

  • テキストボックスが削除されました。
    

• オートシェイプを削除した例

  • If .Shapes(i).Type = msoAutoShape Then .Shapes(i).Delete
    線やワードアートも一緒に削除されました。
    

• コメントを削除した例

  • If .Shapes(i).Type = msoComment Then .Shapes(i).Delete
    コメントが削除されました。
    

• 画像を削除した例

  • If .Shapes(i).Type = msoPicture Then .Shapes(i).Delete
    画像が削除されました。