alle Objekte eines bestimmten Farbmodells auswählen

[koter]

Hallo Asterix,

Nur noch die Frage, wann die Meldung "Nichts ausgewählt" kommen würde? In meinem (kurzen) Test kam ja entweder eine Auswahl oder eben, dass nichts gefunden wurde.

...immer wenn nichts gefunden wurde (dann kann ja auch nichts ausgewählt werden!)
Die Antwort steckt ja schon in Deiner Frage!
Oder vermisst Du noch eine Meldung?

Gruß

Koter

[asterix]

Jetzt hab ich's gefunden, ich meinte eben den erwähnten Text und fand ihn nicht in der Meldung, aber das ist der Test vom Fenster oben - ok!

Na gut, eine Frage hab ich noch - man kann ja über Suchen & Ersetzen auch das Farbmodell suchen (deine Makros sind aber viel einfacher und praktischer). Da kann man auch CMY suchen. Ich finde aber gar keine CMY-Palette in meinem CorelDraw. Ist das also ein Ausnahmefall, falls jemand wirklich explizit eine CMY-Palette angelegt hat?

Das gleiche gilt ja auch für Graustufen etc. Aber keine Sorge - ich will wirklich nicht diese Farbmodelle alle suchen per Makro . Im Gegenteil, es geht mir sogar explizit nur um RGB und CMYK, also genau das, was deine Makros schon vollständig und fehlerfrei können!

[koter]

Hallo Asterix,

...Ist das also ein Ausnahmefall, falls jemand wirklich explizit eine CMY-Palette angelegt hat?...

ich kenne keine Statistiken zur Häufigkeit der Verwendung von Farbmodellen, ich kann also nichts über Ausnahmefälle sagen. Ich weiß auch nicht wie viele Farbmodelle es überhaupt gibt.
Paletten sind zur Verwendung von Farbmodellen nicht immer nötig.
Vielleicht kann ein anderer Nutzer mehr dazu sagen.

Gruß

Koter

[asterix]

Ich denke, es ist für meine Fälle nicht relevant. CMY hört sich eben nach Teilmenge von CMYK an (nur ohne reines Schwarz eben), aber es ist seitens CorelDraw sicher eher so gemeint, dass es eine eigene Palette oder ein eigenes Modell ist. Wollte irgendwie nur sichergehen, dass das Makro dann auch so klappt für meine Belange, und wenn ich drüber nachdenke, dann tut es das! Danke nochmals.

[asterix]

Hallo Koter,

falls du nochmal in dieses Thema reinschaust
Was wäre der Corel-VBA-Begriff, wenn ich nicht nach RGB oder CMYK, sondern nach Graustufen suchen möchte?

hiermit hatte ich keinen Erfolg (nur mit "gray"):

Code:

Sub sucheGrauoutline()
 ActivePage.SelectableShapes.FindShapes(Query:="@Outline.Color.Type = 'gray'").CreateSelection
 If ActiveSelectionRange.Count = 0 Then MsgBox "Kein RBG-Umriss gefunden.", vbInformation, "Nichts ausgewählt"
End Sub

Übrigens ging irgendwie bei mit das mit dem @com.style bei Outlines nicht mehr, so geht es derzeit:

Code:

Sub sucheRBGoutline()
 ActivePage.SelectableShapes.FindShapes(Query:="@Outline.Color.Type = 'rgb'").CreateSelection
 If ActiveSelectionRange.Count = 0 Then MsgBox "Kein RBG-Umriss gefunden.", vbInformation, "Nichts ausgewählt"
End Sub

Vielleicht weil ich inzwischen eine Vollversion von Corel besitze, nicht mehr die Special Edition.
Das aber nur a propos, meine Frage ging ja um den anderen Code, den ersten.

[koter]

Hallo Asterix,

versuche es mit 'grayscale'.

(Hinweis: Das ist ein CQL-Ausdruck, kein VBA-Ausdruck.)

Gruß

Koter

[asterix]

Danke, das hat geholfen und geklappt. Das ist auch nützlich, weil manchmal Schwarz als RGB und manchmal als "greyscale" angelegt ist. Wenn ich das nun so einfüge in den oben gezeigten Code, geht es, und auch mit Füllungen (fill).