alle Objekte eines bestimmten Farbmodells auswählen

[koter]

Hallo Asterix,

...Ich vermute, ein Makro kann so eine versteckte Info in einem Objekt nicht finden, richtig? ...

Ja, aber man kann in das „Geheimversteck“ kurz hineinschauen lassen
(den Objekten für die Suche einen Umriss geben):

Code:

Dim SRTemp As ShapeRange

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

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

Sub UmrissZeigen(Optional x As Boolean)
   Dim gsr As ShapeRange
   ActiveDocument.Unit = cdrMillimeter
   Set SRTemp = ActivePage.SelectableShapes.FindShapes(Query:="@outline.Width = {0mm}")
   If SRTemp Is Nothing Then Exit Sub
   Set gsr = ActivePage.SelectableShapes.FindShapes(, cdrGroupShape)
   SRTemp.RemoveRange gsr
   SRTemp.Shapes.All.SetOutlineProperties 1
End Sub

Sub UmrissNull(Optional x As Boolean)
   If SRTemp Is Nothing Then Exit Sub
   SRTemp.Shapes.All.SetOutlineProperties 0
   Set SRTemp = Nothing
End Sub

Gruß

Koter