Dag RedHead,
Ja helaas was het toch zo, maar het is nu zo en ik ga er mijn slaap niet meer over laten.
Een volgende vraag die ik heb.
Even korte schets.
Ik heb 3 werkbladeren, Blad1, Blad2 en Blad3. Telkens in samengevoegde cel A78:BE169 kan is een afbeelding plaatsen. Dit is bv een routeplan naar mijn onderaannemers.
Tot zover nog geen probleem, gewoon Afbeelding invoegen en ze staat er.
Maar nu zou ik graag een macro (startpagina) willen maken en als ik hier op druk, dan moeten de foto's van de 3 werkbladen in cel A78:BE169 allemaal gewist worden.
Ik had onderstaande formule al gevonden, maar dit werkt maar bij 1 werkblad. Hoe kan ik deze formule aanpassen zodat ook op de andere werkbladen deze foto's gewist worden.
Sheets("Blad1").Select
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A78:BE169")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next ShIk dacht aan deze formule, maar dan geeft hij een foutmelding.
Sheets("Blad1").Select
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A78:BE169")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
Sheet("Blad3").Select
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A78:BE169")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
Sheet("Blad2").Select
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A78:BE169")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
End SubWat doe ik hier fout?
Met vriendelijke groeten.