VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Öffnen neue Symbolleiste

Gruppe

Menue

Bereich

Bar

Thema

Beim Öffnen neue Symbolleiste

Problem

Wie kann ich beim Öffnen der Arbeitsmappe eine neue Symbolleiste erstellen, die beim Schließen wieder gelöscht wird?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.




ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call DeleteCmdBar
End Sub

Private Sub Workbook_Open()
   Dim oBar As CommandBar
   Dim oBtn As CommandBarButton
   Dim iCounter As Integer
   Call DeleteCmdBar
   Set oBar = Application.CommandBars.Add( _
      Name:="NewToolbar", _
      temporary:=True, _
      Position:=msoBarTop)
   oBar.Visible = True
   For iCounter = 1 To 5
      Set oBtn = oBar.Controls.Add
      With oBtn
         .FaceId = 70 + iCounter
         .Caption = "&" & iCounter & " Befehl"
         .OnAction = "Befehl" & iCounter
       End With
    Next iCounter
End Sub

StandardModule: basMain

Sub Befehl1()
    MsgBox "Ich bin Befehl 1"
End Sub

Sub Befehl2()
    MsgBox "Ich bin Befehl 2"
End Sub

Sub Befehl3()
    MsgBox "Ich bin Befehl 3"
End Sub

Sub Befehl4()
    MsgBox "Ich bin Befehl 4"
End Sub

Sub Befehl5()
    MsgBox "Ich bin Befehl 5"
End Sub

Sub DeleteCmdBar()
   On Error Resume Next
   Application.CommandBars("NewToolbar").Delete
   On Error GoTo 0
End Sub

    


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