VBA: Shapes Löschen Problem

Re(2): VBA: Shapes Löschen Problem

Silence! — Mon, 25 Aug 2008 09:49:26 GMT

Jupp, da bin ich dann auch mehr oder weniger draufgekommen, allerdings hab' ich den Code 1:1 aus einem anderen Formular übernommen, wo's funktioniert, und auch im inet wirds mit der normalen if abfrage beschrieben, also dachte ich, dass mit dem delete nur die angesprochene "Instanz" aus den Shapes gelöscht wird.

Re: VBA: Shapes Löschen Problem

ruprecht69 — Mon, 25 Aug 2008 07:16:50 GMT

Ahem ich kenn mich zwar in VBA nicht aus, aber logisch erscheint, dass wenn du zeichenobj deletest es nachher nicht mehr im if ansprechbar (null) ist und somit auch keine Attribute besitzt -> Fehler.

D.h. müsstest du irgendwie so abfragen (semantisch):

if exists(zeichenobj) and zeichenobj.type = ....

Re(2): VBA: Shapes Löschen Problem

Silence! — Sun, 24 Aug 2008 19:08:44 GMT

Hab ich auch schon probiert, bringt nichts - ich hab die Variante jetzt so, dass statt den if ein elseif steht - da funktioniert es dann, bin mir aber noch nicht ganz sicher wieso..

Re: VBA: Shapes Löschen Problem

pyti2000 — Sun, 24 Aug 2008 18:24:14 GMT

Was passiert, wenn du statt msoLine 9 und statt msoTextBox 17 verwendest?

VBA: Shapes Löschen Problem

Silence! — Fri, 22 Aug 2008 10:30:35 GMT

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!