löschen vpn shapes
10.03.2008 08:36:00
helmut.em
ich habe in einem blatt u. anderem ausgefüllte kleine kreise (=sie sind punkte in einem koordinatensystem und linien, die in abhängigkeit von der lage der punkte entstehen (für statistiker: es geht um die regressionsanalyse).
nach eingabe neuer messwerte sollen andere punkte und linien entstehen. um die alten zu löschen, habe ich
mich nach der vba-hilfe "Arbeiten mit Formen (Zeichnungsobjekten)" gerichtet:
For Each sh In ActiveSheet.Shapes
If sh.Type = msoOval Then sh.Select
If sh.Type = msoLine Then sh.Select
Selection.Delete
Next
während die linien gelöscht werden, gehen die kreise nicht weg.
was ist falsch?
Shapes.SelectAll kann ich nicht anwenden, weil dann auch meine commandbuttons und die die drehfelder verschwinden.
danke im voraus
helmut