Annonyme CSL-Instanzen, alle nenen sich "Symbol" !

[koter]

Hallo,

An Condula:

Ich kann Dir den Code schicken, aber schneller und einfacher geht es mit „copy and paste“.
1. Den Code aus dem Forum auswählen und kopieren (Strg+S)
2. CorelDraw starten
3. Extras/Makros/Makro-Editor klicken (oder schneller: Alt+F11 drücken)
4. Im Projekt-Explorer unter GlobalMacros/CorelDraw X4 Objekte/ einen Doppelklick auf ThisMacroStorage
5. Den Code einfügen (Strg+V)
6. Speichern (Strg+S)

Siehe norres Screenshot.

An norre:

Ich erhebe natürlich kein Copyright, Du kannst das Makro nach belieben ändern oder weiterreichen.
Das mit dem „Icon vergeben“ habe ich nicht verstanden. Das Makro ist ja Ereignisgesteuert und sollte eigendlich nicht benannte Symbole automatisch benennen ohne, dass man auf ein Icon klickt. Aber prima wenn es bei Dir auch so funktioniert!
Ich habe leider nur X4, daher kann ich Dir beim zuppeln des Objektmanagers nicht weiterhelfen.

Die Zeile:
Debug.Print Trim(ActiveShape.ObjectData("Name").Value)
kann gelöscht werden. Die brauchte ich nur zum testen. Ich habe vergessen sie zu löschen.

Gruß

Koter