CorelDrawX6 Symbolmanager

[koter]

Hallo Helmut,

Gibt es nicht eine Möglichkeit den Symbolen in der cdr-Datei den neuen Pfad zur cls-Datei zuzuweisen bzw. das Symbol in der cdr-Datei durch das geänderte Symbol in der cls-Datei auszutauschen? Vielleicht mit einem Makro?

man kann den Symbolen in der cdr-Datei einen neuen Pfad zur cls-Datei mit VBA zuzuweisen:

Code:

ActiveShape.Symbol.Definition.FixLink "bimbam"

Leider erscheint, egal ob man „bimbam“, den richtigen Pfad, oder sonstwas als Parameter angibt immer dieses Dialogfeld:



Wählt man in diesen Dialogfeld den richtigen Pfad aus, funktioniert es. Sowas kann man aber nicht durch eine Schleife jagen, es sei denn, man ist bereit, für jedes Symbol die Prozedur mit dem Dialogfeld zu akzeptieren.

Dein zweiter Vorschlag, das Symbol in der cdr-Datei durch das geänderte Symbol in der cls-Datei auszutauschen, ginge:



Ich weiß nicht ob das auch mit Netzwerkpfaden funktioniert, lokal hat es geklappt.
Den Code habe ich als gezippte BAS-Datei angehängt.
Vielleicht kann Dir dieser als Ausgangspunkt helfen.
Gruppen, Powerclips usw. werden nicht berücksichtigt, dazu müsste man den Code noch ausbauen.

Falls Du den Code verwenden willst, und noch Hilfe brauchst: einfach nachfragen!

Schönes Wochenende!

Gruß

Koter