Ribbon "Add-Ins" erlauben/ aktivieren via VBA
17.10.2017 15:09:07
Andreas
ich wollte einen Teil meiner VBA Werkzeuge interessierten Freunden zur Verfügung stellen. In dieser Datei wird über VBA ein CommandBar erzeugt, welcher im Ribbon Tab "Add-Ins" zu sehen sein sollte. Wie ich bei der Inaugenscheinnahme meiner geöffneten Datei auf verschiedenen Rechnern sehen konnte, muß hierfür jedoch der Tab "Add-Ins" über Rechtsclick => Menüband anpassen => Haken setzen aktiviert werden. Dieses würde ich jedoch gern über VBA im Hintergrund miterledigen lassen. Meine Recherchen haben jedoch schon ergeben, daß dies über VBA allein nicht möglich ist, sondern der XML Teil der Datei dementsprechend geändert werden muß.
Aber ich komme nicht weiter. Ich habe bisher den VBA Befehl "ActivateTabMso" gefunden, aber ich will es ja nicht aktivieren, sondern überhaupt erst einmal "anticken".
Im XML Teil des Codes hat das visible="true" aktuell auch keinen Effekt - der Haken ist immer noch draußen.
Ist es überhaupt möglich in einer Datei zu prüfen, ob der Haken bei "Add-Ins" gesetzt ist. Wenn nicht, diesen setzen, und auch bei Schließen der Datei diesen Zustand beizubehalten?
VBA:
Private lobjRibbon As IRibbonUI
Public Sub Load_Ribbon(ByRef probjRibbon As IRibbonUI)
Set lobjRibbon = probjRibbon
lobjRibbon.ActivateTabMso "TabAddIns"
End Sub
customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"
ribbon startFromScratch="false"
tabs
tab idMso="TabAddIns" visible="true"
tabs
ribbon
customUI
Ich weiß aktuell nicht mehr weiter... Klar könnte ich allen sagen, wie sie manuell den Haken _
setzen, aber ich kann mir auch nur schlecht vorstellen, daß dies nicht gehen soll.
Ich bin für jede Anregung und Lösungsvorschlag dankbar!!!
Beste Grüße aus Berlin, Andreas Hanisch
Anzeige