Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Position der Symbolleiste festlegen

Gruppe

Bar

Problem

Wie kann ich über VBA-Code die Position einer Symbolleiste in XL8 bestimmen?

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 Loeschen
End Sub

ClassModule: Tabelle1

Private Sub CommandButton1_Click()
    Call NeueSymbolleiste
End Sub

Private Sub CommandButton2_Click()
    Call Loeschen
End Sub

StandardModule: basMain

Sub NeueSymbolleiste()
   Dim oBar As CommandBar
   Set oBar = Application.CommandBars.Add( _
      Name:="MyCommandbar", _
      MenuBar:=False, _
      temporary:=True)
   With oBar
     .Left = 50
     .Top = 100
     .Visible = True
   End With
End Sub

Sub Loeschen()
   On Error Resume Next
   Application.CommandBars("MyCommandbar").Delete
   On Error GoTo 0
End Sub

    

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