delete pictures from worksheet

[kwagner1]

is there a simple VB code that will remove all pictures from my file? i am currently using the following command to delete picture 2 - but i'm not always sure the picture will be named "pictured 2"....

current code:
ActiveSheet.Shapes("Picture 2").Select
Selection.Delete


thanks!

 

[ADAMC]

Hi

Try

ActiveSheet.Shapes(1).Delete

 

[ADAMC]

Me again (",)

Try this:

Sub delete()
For Each shp In Sheets("Yoursheetnamehere").Shapes
shp.delete
Next

End Sub

 

[ADAMC]

Me again (",)

Try this:

Sub delete()
For Each shp In Sheets("Yoursheetnamehere").Shapes
shp.delete
Next

End Sub

 

[kwagner1]

Adam - your first approach is what i need but i received an error when i tried to use it. Your other approaches rely on me knowing the shape name (that is what i am trying to avoid)

thanks!

 

[ADAMC]

question

What error did you receive when using

Sub deleteshapes
ActiveSheet.Shapes(1).Delete

 

[ADAMC]

question

What error did you receive when using

Sub deleteshapes
ActiveSheet.Shapes(1).Delete
end sub

Did you insert the code into a module?

 

[ADAMC]

try this

Adam - your first approach is what i need but i received an error when i tried to use it. Your other approaches rely on me knowing the shape name (that is what i am trying to avoid)
thanks!

I think you may have misunderstood. You dont need to know shape name...Where i put yoursheetnamehere

Put the name of the actual sheet so..."Sheet1"

 

[kwagner1]

tried it again.... and now it worked! (i must have had screwed it up the first time)

ActiveSheet.Shapes(1).Delete

thanks Adam!