Gruppe
Menue
Bereich
Button
Thema
Benutzerdefiniertes Symbol in neue Symbolleiste einfügen
Problem
Wie kann ich in eine neue Symbolleiste ein benutzerdefiniertes Symbol einfügen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
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