title image


Smiley Shapes sind dem Blatt zugeordnet
Hallo Hans,



das geht meines Wissens nur, wenn Du deren Namen weißt. Dann mit

Sheets("Tabelle").Shapes("Soll_Weg").Delete

löschen. An diesem Befehl sieht man schon, daß da nirgends ein Zellverweis auftaucht. Um alle Shapes eines Blattes zu löschen, kannst Du diesen Code verwenden:D = ActiveSheet.Shapes.Count

For i = D To 1 Step -1

ActiveSheet.Shapes(i).Delete

NextDie Indizierung erfolgt in der Reihenfolge des Einfügens. Soll also imKopf das Firmenlogo drinbleiben dann nur For i=D To 2. Oder wenn die Unterschrift als Scan eingefügt ist For i=D-1 To 1.



Gruß, Frank





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: