automatisieren

[laufbursche]

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

[Nimbin]

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:

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