VBA Removing Pictures

[Stephen_IV]

Can someone please help me when I copy and paste a table from the Web into excel it also brings in pictures (Shapes) into the sheet. I ran a Macro this is what it gave me. There are alot of pictures. Could someone please help me get rid of them. Thsnk in advance Stephen!

Sub Macro2()

    ActiveSheet.Shapes.Range(Array("Picture 3")).Select
    Selection.Delete
End Sub

 

[Gary McMaster]

Maybe this?

Dim oShape As Shape

For Each oShape In ActiveSheet.Shapes
    If oShape.Type = msoPicture Then oShape.Delete
Next oShape

 

[VoG]

Or just

Sub test()
ActiveSheet.Pictures.Delete
End Sub

 

[asking]

 ActiveSheet.DrawingObjects.Select
    Selection.Cut

 

[Stephen_IV]

Thanks Everyone tried Gary McMaster and it worked great will try the others. Thanks to everyone!

 

[Gary McMaster]

You may be able to do it without any code as follows:

From the XL main menu:

Edit > Goto

Click "Special"

Select "Objects" radio button

Click "OK"

Press delete key

Gary

 

[clmish]

I have a file with a few thousand little pictures that are brought in from a data extraction process of some kind. (one per row). The method below bombs with that many pictures. Likewise this code fails:

Sub DeleteAllShapes()
  'Activate sheet to delete autoshapes- change sheet# to the one desired
  Sheet1.Activate
  Dim GetShape As Shape
    For Each GetShape in ActiveSheet.Shapes
      GetShape.Delete
    Next
  End Sub

I'll try Gary's method.

You may be able to do it without any code as follows:

From the XL main menu:

Edit > Goto

Click "Special"

Select "Objects" radio button

Click "OK"

Press delete key

Gary