Benutzerdefinierte Symbolleiste
27.06.2006 16:41:39
Helen
ich habe in einem Excel-File eine Benutzerdefinierte Symbolleiste eingerichtet.
Wenn ich zwei solche Files mit dieser Leiste öffne, dann kommte eine Fehlermeldung: Laufzeitfehler 5.
Wenn ich dann das eine File schliesse, verschwindet beim anderen die benutzerdefinierte Symbolleiste und ich kann sie nicht mehr unter dem Excel-Menu Ansicht, Symbolleisten finden.
Ich habe die Funktionen wohl fehlerhaft definiert, komme aber selber nicht gerade drauf.
Danke im Voraus
Private Sub Auto_open()
Menu1_Open
TestEnvironSet
End Sub
Private Function TestEnvironSet()
'Application.Caption = "Name"
Application.CommandBars("Test-Manager").Visible = True
End Function
Private Sub Auto_close()
Application.CommandBars("Test-Manager").Delete
End Sub
Private Function Menu1_Open() 'Menuleiste für Test-CommandButtons
Dim cmdBar As CommandBar
Dim btn1 As CommandBarButton
Dim btn2 As CommandBarButton
Dim btn3 As CommandBarButton
Dim btn4 As CommandBarButton
Dim btn5 As CommandBarButton
Set cmdBar = Application.CommandBars.Add("Test-Manager", Position:=msoBarLeft, temporary:=True)
Set btn1 = Application.CommandBars("Test-Manager").Controls.Add(Type:=msoControlButton, Before:=1)
Set btn2 = Application.CommandBars("Test-Manager").Controls.Add(Type:=msoControlButton, Before:=2)
Set btn3 = Application.CommandBars("Test-Manager").Controls.Add(Type:=msoControlButton, Before:=3)
Set btn4 = Application.CommandBars("Test-Manager").Controls.Add(Type:=msoControlButton, Before:=4)
Set btn5 = Application.CommandBars("Test-Manager").Controls.Add(Type:=msoControlButton, Before:=5)
With btn1
.FaceId = 1016
.Style = msoButtonIconAndWrapCaption
.Caption = "Start"
.OnAction = "btnHome"
.Height = 80
End With
usw.
End Function