In CD gleichfarbige Objekte selektieren

[Nimbin]

Hi,

probier mal untenstehenden code.
Kopiere ihn am besten im Makroeditor unter GlobalMacros\Module\RecordedMacros und lege dir einen button dazu in die Arbeitsleiste.
Wie das geht, findest du im VBA-Handbuch (dvba_pg.pdf), das irgendwo im CorelVerzeichnis rumliegt.
Lies Seite 48f - ist halb so wild; sind nur ein paar klicks.

Das Makro funktioniert nur, wenn die Grafik markiert und nicht gruppiert ist - alles andere ist mir jetzt zu aufwendig...
Wenn´s funktioniert löscht es dir alle weißen shapes aus der Grafik.

Ach ja - mit Ctrl-Z lässt sich der Arbeitsschritt rückgängig machen.

Gruß,
Nimbin

Sub KillWhiteShapes()
Dim sh As Shape

ActiveDocument.BeginCommandGroup "KillWhiteShapes"

For Each sh In ActiveSelection.Shapes

If sh.Type = cdrCurveShape Then
If sh.Fill.UniformColor.IsWhite = True Then: sh.Delete
End If

Next

ActiveDocument.EndCommandGroup
End Sub