alle Objekte eines bestimmten Farbmodells auswählen

[koter]

Hallo Asterix,

...aber wie immer will man dann doch die Sache lösen. ...

Aber Sicher! 

Es sieht so aus, als wären wir auf einen Bug gestoßen.

Du kannst folgenden Code probieren:

Code:

Sub sucheRBG()
   ActivePage.SelectableShapes.FindShapes(Query:="@fill.Color.Type = 'rgb'").CreateSelection
   ActivePage.SelectableShapes.FindShapes(Query:="@com.Style.Outline.Color.Type = 5").AddToSelection
   If ActiveSelectionRange.Count = 0 Then MsgBox "Keine RBG-Objekte gefunden!", vbInformation, "Nichts Ausgewählt"
End Sub

Sub sucheCMYK()
   ActivePage.SelectableShapes.FindShapes(Query:="@fill.Color.Type = 'cmyk'").CreateSelection
   ActivePage.SelectableShapes.FindShapes(Query:="@com.Style.Outline.Color.Type = 2").AddToSelection
   If ActiveSelectionRange.Count = 0 Then MsgBox "Keine CMYK-Objekte gefunden!", vbInformation, "Nichts Ausgewählt"
End Sub

Sub sucheRBGFill()
   ActivePage.SelectableShapes.FindShapes(Query:="@fill.Color.Type = 'rgb'").CreateSelection
   If ActiveSelectionRange.Count = 0 Then MsgBox "Keine RBG-Füllung gefunden!", vbInformation, "Nichts Ausgewählt"
End Sub

Sub sucheCMYKFill()
   ActivePage.SelectableShapes.FindShapes(Query:="@fill.Color.Type = 'cmyk'").CreateSelection
   If ActiveSelectionRange.Count = 0 Then MsgBox "Keine CMYK-Füllung  gefunden!", vbInformation, "Nichts Ausgewählt"
End Sub

Sub sucheCMYKoutline()
 ActivePage.SelectableShapes.FindShapes(Query:="@com.Style.Outline.Color.Type = 2").CreateSelection
 If ActiveSelectionRange.Count = 0 Then MsgBox "Keinen CMYK-Umriss gefunden!", vbInformation, "Nichts Ausgewählt"
End Sub

Sub sucheRBGoutline()
 ActivePage.SelectableShapes.FindShapes(Query:="@com.Style.Outline.Color.Type = 5").CreateSelection
 If ActiveSelectionRange.Count = 0 Then MsgBox "Keinen RBG-Umriss gefunden!", vbInformation, "Nichts Ausgewählt"
End Sub

Falls Du Einzelheiten zum Bug wissen willst, gib Bescheid.

Gruß

Koter