wie bekomme ich mit VBA einen Button in die Menübar der VBE?
Möchte damit einen Standardkommentar in meine Makros einfügen.
So wie in Excel scheint es nicht zu funktionieren.
Grüße Gregor
Option Explicit
Dim vbe As Object
Dim cb As Office.CommandBar
Dim cbc As Office.CommandBarControl
Dim WithEvents cbb As Office.CommandBarButton
Private Sub Workbook_Open()
Set vbe = Application.vbe
Set cb = vbe.CommandBars(1)
Set cbc = cb.Controls("E&xtras")
Set cb = cbc.CommandBar
Set cbb = cb.Controls.Add(msoControlButton)
With cbb
.Caption = "New Button"
.TooltipText = "Klick mich ..."
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
cbb.Delete
End Sub
Private Sub cbb_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox Ctrl.Caption & " wurde gedrückt."
End Sub
Risi Thomas Softwareentwicklung
COM-Addins +++ RTD-Server +++ Komponenten
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen