Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Neue Symbolleiste am rechten Fensterrand anlegen

Gruppe

Bar

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