Beiträge: 1.436
Themen: 11
Danke erhalten: 272 in 231 Posts
Danke gesagt: 26
Registriert seit: 24.03.2012
Hallo Asterix,
(30.06.2024, 11:32)asterix schrieb: 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
•
Beiträge: 91
Themen: 6
Danke erhalten: 1 in 1 Posts
Danke gesagt: 10
Registriert seit: 03.06.2024
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!
Betriebssystem / Grafik-Software: Windows 10, CorelDraw Suite 2023
•
Beiträge: 1.436
Themen: 11
Danke erhalten: 272 in 231 Posts
Danke gesagt: 26
Registriert seit: 24.03.2012
Hallo Asterix,
(30.06.2024, 12:20)asterix schrieb: ...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
•
Beiträge: 91
Themen: 6
Danke erhalten: 1 in 1 Posts
Danke gesagt: 10
Registriert seit: 03.06.2024
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.
Betriebssystem / Grafik-Software: Windows 10, CorelDraw Suite 2023
•
Beiträge: 91
Themen: 6
Danke erhalten: 1 in 1 Posts
Danke gesagt: 10
Registriert seit: 03.06.2024
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.
Betriebssystem / Grafik-Software: Windows 10, CorelDraw Suite 2023
•
Beiträge: 1.436
Themen: 11
Danke erhalten: 272 in 231 Posts
Danke gesagt: 26
Registriert seit: 24.03.2012
Hallo Asterix,
versuche es mit 'grayscale'.
(Hinweis: Das ist ein CQL-Ausdruck, kein VBA-Ausdruck.)
Gruß
Koter
•
Beiträge: 91
Themen: 6
Danke erhalten: 1 in 1 Posts
Danke gesagt: 10
Registriert seit: 03.06.2024
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).
Betriebssystem / Grafik-Software: Windows 10, CorelDraw Suite 2023
•