Gruppe
Menue
Problem
Wie kann ich über VBA-Code die Position einer Symbolleiste in XL8 bestimmen?
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