Gruppe
Menue
Bereich
Bar
Thema
Neue Symbolleiste am rechten Fensterrand anlegen
Problem
Am rechten Fensterrand soll eine neue Symbolleiste angelegt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call CmdDelete
End Sub
StandardModule: basMain
Sub CreateCmdBar()
Dim oBar As CommandBar
Call CmdDelete
Set oBar = Application.CommandBars.Add( _
"test", msoBarRight, False, False)
oBar.Visible = True
End Sub
Sub CmdDelete()
On Error GoTo ERRORHANDLER
Application.CommandBars("test").Delete
ERRORHANDLER:
End Sub