Eigene Menüleiste
24.02.2004 11:47:13
TinoB
habe wider folgendes problem, letztens hat mir jemand geholfen diese symbolleiste zu erstellen. klappt auch wunderbar. jetzt müsste ich diese erweitern, ua. mit speichern. wie stelle ich das an? wo und was muß ich da noch einfügen? ich hoffe es kann mir jemand helfen.
Danke
Tino
Private Sub Workbook_Open()
Dim myBar As CommandBar
Dim myBtn As CommandBarControl
On Error Resume Next
Application.CommandBars("Stücklistenimport").Delete
Set myBar = Application.CommandBars.Add("Stücklistenimport", msoBarFloating)
Set myBtn = myBar.Controls.Add(msoControlButton)
With myBtn
.Style = msoButtonIconAndCaption
.Caption = "Importieren der Textdatei"
.FaceId = 135
.TooltipText = "Hier klicken um den Import zu starten!"
.OnAction = "ASC" 'hier der Name deines Makros mit ("")
End With
With myBar
.Visible = True
End With
End Sub