Alle Bilder in Range("A1:A10") löschen....
28.11.2005 16:45:13
R.Schmitt
ich möchte gerne alle in einem bestimmten (markierten)
Zellbereich befindlichen Bilder löschen.
Mein erster Ansatz war, dies über
For Each item In ActiveSheet.Shapes
If item.TopLeftCell.Address =
usw.
zu lösen.
Wobei eben topleft in den markierten Bereich fallen müßte,
damit das Bild gelöscht wird.
Geht´s nicht auch eleganter ?
Ist jetzt mehr eine Stilfrage - aber trotzdem.
Vielen Dank
R.Schmitt