Rechteck- und Zauberstabmaske im richtigen Modus starten

[Karthagos]

Wenn ich mit der Rechteckmaske arbeite, benötige ich (immer) den "Normalen Modus"
   
mit der Zauberstabmaske den "Subtraktiven Modus"
   
bei Rechteckmaske + Subtraktiven Modus funktioniert das Markieren mit der Maus nicht
bei Zauberstab + Normalen Modus wird alles markiert bzw. noch ein Gesamtrahmen erzeugt, muss dann "Maske entfernen", auf den Subtraktiven Modus klicken und noch mal beginnen
   
Gibt es eine Möglichkeit, die jeweils richtige Zuordnung per Makro zu organisieren, evtl. über zwei separate Icons statt der Auswahl in der Seitenleiste?

[koter]

Hallo Günther,

Du kannst den folgenden Code in eine GMS schreiben und ausprobieren:

Code:

Option Explicit

Dim IDZauberstab As String, IDRechteckmaske As String
Dim IDNormal As String, IDSubtraktiv As String, IDÜberlappung As String, IDAdditiv As String

Private Sub IDStr()
'    Masken
   IDZauberstab = "15b897c2-44d5-462e-9b3e-63a84bbfecfa"
   IDRechteckmaske = "0fbe8e38-3117-416b-841c-857f8afa24aa"
'    Modi
   IDNormal = "5614797b-cd1e-41b1-9504-5c52b3321ca7"
   IDSubtraktiv = "a81a73bc-0dfc-49ef-b454-1197e006cc70"
   IDÜberlappung = "2d47c401-7e8e-4926-9d43-8e84f5278362"
   IDAdditiv = "4666031c-7a09-4d12-b396-ee0c674cea19"
End Sub

Sub Rechteckmaske()
   If IDRechteckmaske = "" Then Call IDStr
   Application.FrameWork.Automation.InvokeItem IDNormal
   Application.FrameWork.Automation.InvokeItem IDRechteckmaske
End Sub

Sub Zauberstab()
   If IDZauberstab = "" Then Call IDStr
   Application.FrameWork.Automation.InvokeItem IDSubtraktiv
   Application.FrameWork.Automation.InvokeItem IDZauberstab
End Sub

Ich habe als Test zwei Schaltflächen in die Hilfsmittelpalette eingefügt:



Du kannst natürlich auch eine Symbolleiste verwenden.
Ich hoffe, dass es auch mit Deiner Version funktioniert, bin aber ein wenig skeptisch.

Gruß

Koter

[Karthagos]

Hallo Koter,
zunächst vielen Dank für Dein Makro, konnte es leider nicht testen.
Obwohl VBA installiert ist
   
bringt er Fehlermeldungen und kann den Editor nicht öffnen.
   
Andere Makros (von Dir  ) sind installiert und funktionieren. Da werde ich wohl mal wieder neu installieren müssen und ggf. den Corel-Support anfragen.

Könntest Du mir das Makro als gms-Datei zusenden, damit ich wenigstens testen kann, ob es funktioniert?

[koter]

Hallo Günther,

das hätte ich ja auch gleich machen können...

Die die GMS ist in der ZIP-Datei im Anhang.

Gruß

Koter


  Maskenball1.zip (Größe: 7,01 KB / Downloads: 4)

[Karthagos]

Hallo Koter,

so war das in Ordnung, damit habe ich herausgefunden, das mit meinem VBA-Editor etwas nicht stimmt.
Wie heißt es so schön: "Das Schlimmste ist für etwas gut"

Habe eben mal die Makros in die Symbolleiste gezogen, funktionieren beide 
Werde sie natürlich auch in die Seitenauswahlleiste einbinden.

Für mein CorelDraw werde ich ins Copywright schreiben " Das beste ist von Koter" 

[Karthagos]

Hallo Koter,
neuester Sachstand: die Makros funktionieren problemlos, ich habe die Originaleinträge entfernt und den Makros die gleichen shortcuts (also R und W) gegeben, so ist es perfekt. Nochmals tausend Dank. 

Kleiner Nachtrag zu meinem fehlenden VBA-Editor, falls mal jemand das selbe Problem hat.
Ich habe alles mögliche ge- und versucht, nit den Einträgen auf meinem Laptop verglichen, fehlende Verzeichnisse rüberkopiert, Corel-Reparatur, Windows-Reparatur, etc. pp, alles ohne Erfolg.

Dann habe ich Programme - Corel - Änderungen aufgerufen, den Eintrag VBA unter Dienstprogramme deaktiviert und Änderungen installiert. Rechner neu gestartet, gleiche Prozedur, diesmal VBA unter Dienstprogramme  wieder aktiviert, Rechner neu gestartet.

...und siehe da, VBA-Editor ist wieder da. 

[Karthagos]

Hallo Koter, 
muß nochmal einen Nachtrag zum Sachstand melden. Habe Deine Makros in das Flyout-Menü eingefügt, leicht geänderte Icons und die shortcuts G und J zugewiesen. 
     
Beide Makros funktionieren einwandfrei, sowohl durch anklicken des Menüpunktes als auch über die shortcuts.

Habe dann Deine Makros gegen die Originale Rechteckmaske und Zauberstabmaske ausgetauscht und auch die Originalshortcuts vergeben. Den Standardeinträgen Rechteckmaske habe ich shortcut G und Zauberstab shortcut J zugewiesen.
Nun habe ich die Makros in das Flyoutmenü eingefügt und die Originaleinträge rausgenommen. Dann ist das Standardsymbol in der linken Symbolleiste nicht mehr die Rechteckmaske sondern die Elipsenmaske, also anscheinend der erste "Originale" Eintrag. Hatte mal testweise die Freihandmaske an dritte Stelle geschoben, dann zeigt er als Standard dieses Symbol. 
   
wenn ich R Rechteckmaske wähle. ist er im Normalen Modus, wenn ich W Zauberstabmaske wähle, ist er leider auch im Normalen Modus und springt nicht wie gewünscht auf den Subtraktiven Modus.

Vermute mal das ist Systembedingt, wollte den Sachstand aber zumindest aktualisieren.

[koter]

Hallo Günther,

Danke für die Sachstandsmeldung!

Wenn Du Shortcuts verwendest, brauchst Du ja eigentlich keine zusätzlichen Schaltflächen in der Hilfsmittelpalette.
Ich würde sie wieder auf Standard zurücksetzen.

Gruß

Koter

[Karthagos]

Hallo Koter,

danke für die Rückmeldung. Da hast Du natürlich recht. Ich wollte es eben ganz sauber haben und am Ende nur noch die Makrolösungen, auch in der Seitenleiste. Aber ich denke, an die permanente Nutzung der zusätzlichen shortcuts kann ich mich gewöhnen.