wmf. Bilder automatisch löschen
22.09.2005 10:39:35
virgilio
habe ein Problem mit mein Makro das ich aufgezeichnet habe.
Brauche Eure Hilfe.
Möchte alle *.wmf auf den Tabellenblatt automatisch löschen.
Unteres Makro löscht eben nur diese Pics, der Name der Pics ändert sich jedoch...
Wäre es alternativ möglich z.B alle Bilder innerhalb den Bereich A1 bis K30 zu löschen.
Für jede Hilfe bin ich dankbar
Gruss
gio
Sub Makro1()
ActiveSheet.Shapes.Range(Array("Picture 575", "Picture 576", "Picture 577", _
"Picture 578" _
, "Picture 579", "Picture 580", "Picture 581", "Picture 582" _
, "Picture 583")).Select
Selection.Delete
End Sub