Rechteck- und Zauberstabmaske im richtigen Modus starten

[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