alle Objekte eines bestimmten Farbmodells auswählen

[koter]

Hallo Asterix,

ich hoffe sehr, dass meine andere Anfrage zu den Knoten nicht zu sehr ausufernd war ...

Nein, und wenn schon!

Die folgenden Vierzeiler markieren Objekte mit Umriss oder Füllung
mit dem jeweiligen Farbmodell :

Code:

Sub sucheRBG()
   ActivePage.SelectableShapes.FindShapes(Query:="@fill.Color.Type = 'rgb'").CreateSelection
   ActivePage.SelectableShapes.FindShapes(Query:="@outline.Color.Type = 'rgb'").AddToSelection
End Sub

Sub sucheCMYK()
   ActivePage.SelectableShapes.FindShapes(Query:="@fill.Color.Type = 'cmyk'").CreateSelection
   ActivePage.SelectableShapes.FindShapes(Query:="@outline.Color.Type = 'cmyk'").AddToSelection
End Sub

Warnungen vor Powerclips, Gruppen usw. wie bei „Suchen & Ersetzen“ gibt es nicht.
Darauf musst Du also selbst achten.

Gruß

Koter