VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Neue Symbolleiste am rechten Fensterrand anlegen

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

    


Beiträge aus dem Excel-Forum zu den Themen Menue und Bar