Re: Bilder löschen
28.10.2002 16:41:29
jinx
Moin, Steffen,sorry für die späte Antwort.
Entweder legst Du als Auslöser Rechtecke aus der Symbolleiste Zeichnen in das Blatt und weist diesen die Makros zu, oder Du verwendest den modifizierten Code:
Sub Löschen()
' Tabelle anpassen, löscht ALLE Bilder
' Nitte für die Schaltclächen den Code anpassen
For i = ActiveSheet.Pictures.Count To 1 Step -1
If Left(ActiveSheet.Pictures(i).Name, 3) <> "Com" Then
ActiveSheet.Pictures(i).Delete
End If
Next
End Sub
Code eingefügt mit Syntaxhighlighter 1.15
cu
jinx