---

Hallo an Alle,

ich möchte am ende des Makros ein paar HybridShapes löschen onhe den zu Deleten (mit Selection.delete), weil die noch weiter verwendet sind.

Ich will also auch nicht einfach ein "Hide" benutzen, da die noch sichtbar aufm Tree sind.

Gibts eine Methode diesen Elementen so zu löschen, die sieht so ähnlich wie die Elementen erstellen Ohne "Geoset.Append"?

Also ein Gegenbegriff zu Geoset.Append

Kann jemand mir helfen  

VielenDank im Voraus.

[Diese Nachricht wurde von JuliusCaesar am 04. Mrz. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Keine Ideen? 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Schau dir mal die Methode "DeleteObjectForDatum" an.
Ich hab mal gelesen dass es damit gehen könnte.
Wenn nicht:
Selection in Collection zwischen speichern und Element selektieren und löschen.

Gruß
Bernd

EDIT: hier noch ein Link dazu

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

Vielen Dank für deine Antwort. Mit DeleteObjectForDatum hat es leider nicht funktioniert.

ich habe mit Collection versucht, und kriege die gleiche Problem wieder,bin aber mir nicht sicher. Mache ich das so richtig?

Code:

---

Set SplitDel = Cad.Selection
Dim CollectionDel As Collection

SplitDel.Clear
For t = 0 to d
SplitDel.Add SplitListOrg(t)
Next
CollectionDel.Add SplitDel

For t = 0 To d
if Not IntDrafts (t) = "1" Then
SplitDel.Item(t).delete
End if
Next

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Den Inhalt der Selektion zwischenspeichern geht zB so:

Code:

---

Dim oCollection As Collection

for i = 1 to oselection.count
    oCollection.Add oselection.item2(i).value
Next

---

Deinen Code kann ich nicht ganz nachvollziehen, da mir noch Informationen zu den verschiedenen Objekten fehlen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo!
vielen Dank für deine Beispiel.
ich werde es weiter versuchen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP