---

Hallo zusammen,

ich hoffe Euch geht es allen gut.

Aktuell stoße ich auf folgendes Problem. Nach Updates von Zusatzmodulen im Inventor gehen die Shortcuts verloren. Diese möchte ich vorher abspeichern und beim Start oder per Knopfdruck wieder setzen.

Nun passiert folgendes nach diesem VBA Code:

Code:

---

Public Sub ShortcutSetzen()

Dim oApp As Application
Set oApp = ThisApplication

Dim oControlDef As ControlDefinitions
Set oControlDef = oApp.CommandManager.ControlDefinitions

Dim oShortcut As String
oShortcut = "Strg+Umschalt+C"

Dim oItem As ButtonDefinitionObject
 
Set oItem = oApp.CommandManager.ControlDefinitions.Item(2838) 'Irgendein Befehl in der Liste

oItem.OverrideShortcut = oShortcut
MsgBox (oItem.OverrideShortcut)

End Sub

---

in der MsgBox wird mir folgendes ausgegeben:

"Alt+Strg+Umschalt+C"

Das "Strg+Umschalt+C" Standardmäßig "Kreis durch Mittelpunkt" zugeordnet ist, ist mir klar. Diesen Shortcut lösche ich vorher allerdings. Allerdings wird auch bei nicht zugewiesenen Shortcuts (Bsp.: Strg+Umschalt+D, welcher nach dem zurücksetzen aller Tasten nicht in meiner Liste auftaucht) "Alt+Strg+Umschalt+D" angezeigt.

Bei beispielsweise "Strg+E" funktioniert das ganze problemlos.

Was passiert hier  ?
Das erquickt ganz und gar nicht meine Seele.

Was übersehe ich?

Grüße

Flo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Geht das denn nicht auch mit Bordmitteln?
Extras -> Anpassen -> Tastatur -> Exportieren als XML

Später diese XML wieder importieren

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

danke für Deine Antwort.

Das wäre natürlich eine eine Option. Allerdings nur wenn ich dies nicht händisch machen muss.

Kann man über die API auf die Befehle "Exportieren..." und "Importieren..." zugreifen?

Wenn ich das Sample Program aus der API Hilfe ausführe und Suche finde ich zummindest die passenden Befehle nicht.

Code:

---

Sub PrintCommandNames()
    Dim oControlDefs As ControlDefinitions
    Set oControlDefs = ThisApplication.CommandManager.ControlDefinitions

    Dim oControlDef As ControlDefinition
   
    Open "C:\temp\CommandNames.txt" For Output As #1

    Print #1, Tab(10); "Command Name"; Tab(75); "Description"; vbNewLine
   
    For Each oControlDef In oControlDefs

        Print #1, oControlDef.InternalName; Tab(55); oControlDef.DescriptionText
       
    Next
    Close #1
End Sub

---

Das "Alt+Strg+Umschalt+C" in dem Feld auftaucht wundert mich dennoch.

Grüße Flo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP