Verwijderen van meerdere foto's uit excel tabblad

[Offthefield]

Ik wil een tabblad in 1x leeg maken dmv van een makro, op dit blad staat tekst (geen probleem), maar er staat ook een foto op, deze foto wordt door excel automatisch verhoogd als hij de keer ervoor verwijderd is.
Nu wil ik een makro maken die aan geeft dat als fotos met bv nr 1 tm 100 verwijderd
dienen te worden.

Heeft iemand een idee hoe dit moet !!

Mijn makro ziet er nu zo uit :

Cells.select
Selection.ClearContents
ActiveSheet.Shapes ("Picture 4").select
Selection.Delete
Range("A1").select

Picture 4 wordt nadat het gewist is bij de volgende keer dat er een foto opgeplakt wordt uit een database automatisch Picture 5

Bij voorbaat hartelijk dank

Offthefield

 

[Wigi]

Als toch alles weg moet, waarom niet gewoon het tabblad verwijderen en opnieuw een leeg blad invoegen?

 

[Offthefield]

Bedankt voor de reactie, maar dat is niet wat ik wil

Het moet iets worden met een IF of DO

 

[Wigi]

Zoiets dan:

Sub ff()

    For Each sh In ActiveSheet.Shapes
        If sh.Type = msoPicture Then sh.Delete
    Next
    
End Sub

Wigi

 

[Offthefield]

Net even snel geprobeerd, ziet er fantastisch uit!!!

Hartelijk Wigi

 

[snb]

of

Sub tst()
  Sheets(1).Shapes.SelectAll
  Selection.Delete
End Sub

 

[huijb]

@brw Martijn Vraag verwijderd. Graag een eigen vraag maken. Het is niet toegestaan in iemand anders zijn vraag jouw probleem te plaatsen. Dit is onoverzichtelijk voor de helpers maar vooral voor de topicstarter.Bovendien is het topic gedateerd en mag derhalve met rust gelaten worden.