Shapes abfragen
27.02.2003 21:01:18
Wolfgang
mit meinem diletantischen Anfängercode kann das Makro nichts anfangen. Aber es geht um das Prinzip. Könnt Ihr mir vielleicht auf die Sprünge helfen?
If ActiveSheet.Shapes("Organigramm 1") = True Then ActiveSheet.Shapes("Organigramm 1").Delete
Die Funktion: ActiveSheet.Shapes("Organigramm 1").Delete funktioniert ja, aber beim wiederholten Durchlauf findet er das ohne Bedingung gar nicht komisch.
Danke für die Tips.
Gruß
Wolfgang