Excel VBAで写真を削除する

Question

Excel 2007ワークシート内のすべての画像を削除するにはどうすればよいですか？実際のコード例は素晴らしいでしょう。

Answer 1

Dim shape As Excel.shape 

For Each shape In ActiveSheet.Shapes 
     shape.Delete 
Next 

Answer 2

最も簡単な方法：

Activesheet.Pictures.Delete 

または

Activesheet.Shapes.Delete 

あなたの写真があるオブジェクトの種類に応じて。

すべての画像を効率的に削除してから、繰り返して1枚ずつ削除（ループスルー）して削除します。すべての画像または他の形状を削除するには

Answer 3

、あなたがそれらのすべてを反復処理し、種類を確認することができます。私の場合は

Dim shape As Excel.shape 

For Each shape In ActiveSheet.Shapes 

    Select Case shape.Type 
     Case msoPicture, msoMedia, msoShapeTypeMixed, msoOLEControlObject, msoAutoShape 
      shape.Delete 
     Case Else 
      'Do nothing 
    End Select 
Next 

私のシートはIタイプmsoAutoShapeの透明な図形のいっぱいだったので、このコードは便利でした思考は写真だった。したがって、Activesheet.Pictures.Deleteは機能しませんでした。

あなたは、このリンク上のすべての形状の種類を見つけることができます：http://msdn.microsoft.com/en-us/library/aa432678(v=office.12).aspx