Juergens-Workshops.de Forum
automatisieren - Druckversion

+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: automatisieren (/showthread.php?tid=28730)



automatisieren - laufbursche - 11.06.2009

Hallo, wie kann ich mehrere verschiedenfarbige objekte (nur umrissfarbe ist unterschidich) selektieren. Mit suchen und ersetzen hab ich das schon hinbekommen. Nur, das sind schon ziemlich viele klicks. Kann mann da kein Makro (oder was auch immer) auf die Programmoberfläche platzieren die das von alleine ausführt?

thx der Laufbursche


automatisieren - Nimbin - 13.06.2009

Ja, klar, geht prinzipiell schon.

Mir ist nicht ganz klar, nach welchen Kriterien du deine Objekte auswählen möchtest.
z.B. wählt der Code unten alle Texte und Bitmaps auf der Seite aus:
Zitat:Sub Auswahl()
ActivePage.FindShapes(Type:=cdrTextShape).CreateSelection
ActivePage.FindShapes(Type:=cdrBitmapShape).AddToSelection
End Sub
Öffne in Corel den Makroeditor (Alt-F11) und kopiere die 4 Zeilen am besten unter GlobalMacros/Module/RecordedMacros.

Wie du ein Macro hinter einen button legst, findest du im VBA-Handbuch ( "...\CorelDRAW Graphics Suite X4\Programs\dvba_pg.pdf") und liest dann brav ab Seite 48.

Gruß,
Nimbin