Re: Menuleiste / Idee
26.06.2003 07:02:36
Erich M.
Hallo Stefan,1. in die VBA-Entwicklungsumgebung mit Alt+F11 oder unter "EXTRAS / MAKRO / Visual-Basic-Editor
2. in "DieseArbeitsmappe" folgendes reinkopieren:
Private Sub Workbook_Open()
Dim I%
I = Application.CommandBars(1).Controls.Count
With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlButton, ID:=2949, Before:=I + 1, temporary:=True)
.Caption = "&Farbe 2"
.OnAction = "zweite_Farbe"
.Style = msoButtonIconAndCaption
End With
With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlButton, ID:=2949, Before:=I + 1, temporary:=True)
.Caption = "&Farbe 1"
.OnAction = "erste_Farbe"
.Style = msoButtonIconAndCaption
End With
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls("&Farbe 1").Delete
Application.CommandBars("Worksheet Menu Bar").Controls("&Farbe 2").Delete
End Sub
Code eingefügt mit: Excel Code Jeanie
3. die vorbezeichneten Makros (Sub) aus meiner ersten Antwort in ein (neu erstelltes) Modul
4. in das Makro "Workbook open" klicken und "ausführen" --> damit werden auf der Menueleiste die Icons erstellt.
Mit schliessen dieser Datei werden sie automatisch gelöscht; beim öffnen wieder erstellt usw.........
Viel Erfolg!
mfg
Erich