How to remove images in worksheet 2

[baltog]

Hi All,

I just wanna ask how can i remove the images/pictures in my worksheet. the ff code doest not work.

sheet1.range("A1:F100&quot.clear

it removes only the texts.

thanks in advance

 

[RoyVidar]

Hi!

You either need to know the name of the picture/image, then use

activesheet.shape("my picture&quot.select
selection.delete

or if there are more, and you wan't to delete em'all.

dim sh as shape
for each sh in activesheet.shapes
sh.select
selection.delete
next sh

HTH Roy-Vidar

 

[Bowers74]

Just a tip:

If you only want to remove pictures and not ActiveX Objects for example use:

Sub DeletePictures()
Dim pic As Shape
For Each pic In ActiveSheet.Shapes
  If pic.Type = 13 Then 'msoPicture
      pic.Delete
  End If
Next pic
End Sub

I hope this helps!


Peace!

Mike

Never say Never!!!
Nothing is impossible!!!

 

[baltog]

it seems Mike's tip is much more applicable. thanks a lot guys!