Gruppe
Menue
Problem
Wie kann ich in eine neue Symbolleiste ein benutzerdefiniertes Symbol einfügen?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Help").Controls( _
"DejaNews-Abfrage").Delete
On Error GoTo 0
End Sub
Bitte anpassen
Private Sub Workbook_Open()
Dim oBtn As CommandBarButton
On Error GoTo ERRORHANDLER
Set oBtn = Application.CommandBars("Help").Controls.Add( _
Type:=msoControlButton)
With oBtn
.BeginGroup = True
.OnAction = "Start"
.Caption = "DejaNews-Abfrage"
Application.CommandBars("hwh-standard").Controls(11).CopyFace
.PasteFace
End With
ERRORHANDLER:
End Sub