VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Position der Symbolleiste festlegen

Gruppe

Menue

Bereich

Bar

Thema

Position der Symbolleiste festlegen

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