Application.CommandBars im VBA-Direktfenster
15.04.2019 08:38:57
Marco
ich habe eine Reihe von Tools und Makros die ich häufiger brauche ins Kontextmenü eingebaut. Ich nutze zum Erstellen der Einträge ein Makro.
Jetzt meine Frage: Gibt es die Möglichkeit dieses auch im VBA-Bereich und auch im Direktbereich einzusetzen, damit ich nicht immer auf das Tabellenblatt gehen muss?
Meine erste Iddee, die Ansprache über Application.CommandBars("Direktbereich") führte leider zu keinem Ergebnis.
Ich wünsche Euch einen guten Start in die Woche.
VG
Marco
Public Sub ToolzEinbinden()
Dim objCmdBar As CommandBar
Dim objCPopup As CommandBarPopup
Dim objButton As CommandBarButton
Set objCmdBar = Application.CommandBars("Cell")
Set objCPopup = objCmdBar.Controls.Add(msoControlPopup, Temporary:=False)
With objCPopup
.Caption = "Eigene Tools"
.BeginGroup = True
Set objButton = objCPopup.Controls.Add(msoControlButton, Temporary:=False)
With objButton
.Caption = "&Direktbereich löschen"
.OnAction = "ClearDirektbereich"
.FaceId = 108
End With
End With
End Sub