Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eigene Menüleiste

Eigene Menüleiste
24.02.2004 11:47:13
TinoB
hallo leute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eigene Menüleiste
24.02.2004 12:11:49
Kerstin
Hallo Tino,
willst du den normalen Speicherbefehl verwenden oder ein eigenes Makro?
Mit eigenem Makro müsstest du das so ergänzen:

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

Set myBtn = myBar.Controls.Add(msoControlButton)
With myBtn
.Style = msoButtonIconAndCaption
.Caption = "Speichern"
.FaceId = 135
.TooltipText = "Speichern"
.OnAction = "Speichermakro" 'hier der Name deines Makros mit ("")
End With

With myBar
.Visible = True
End With
End Sub

So kannst du auch weitere Buttons einfügen.
Gruß
Kerstin
Anzeige
danke, genau so meinte ich's (o.T.)
24.02.2004 12:36:38
TinoB
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige