VBA: Shapes Löschen Problem

VBA: Shapes Löschen Problem (5 Beiträge, 351 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Idee: Shapes werden in Excel - Tabelle mittels VBA nach Angaben in einem Formular eingezeichnet. Nach neuer Eingabe sollen alle alten Shapes (Pfeile, Rechtecke, ..) gelöscht werden und dann mit den neuen Werten neu gezeichnet werden.

Problem: Es werden nur Rechtecke gelöscht, dann folgende Fehlermeldung:

Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)

Bei 2. und 3. If - Abfrage:

zeichobj.Type =

Code:

For Each zeichobj In Tabelle5.Shapes

    If zeichobj.Type = 1 Then
       zeichobj.Delete
    End If

    If zeichobj.Type = msoLine Then
        zeichobj.Delete
    End If

    If zeichobj.Type = msoTextBox Then
        zeichobj.Delete
    End If

Next zeichobj

zeichobj wird vorher mittels:

Dim zeichobj As Shape

definiert.

Danke!

Re: VBA: Shapes Löschen Problem (pyti2000 am 24.08.2008, 20:24:14)

Re(2): VBA: Shapes Löschen Problem (Silence! am 24.08.2008, 21:08:44)

Re: VBA: Shapes Löschen Problem (ruprecht69 am 25.08.2008, 09:16:50)

Re(2): VBA: Shapes Löschen Problem (Silence! am 25.08.2008, 11:49:26)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung