Excel Menues mit Bildern
31.01.2007 20:29:08
Walter
habe nachfolgendes Menue im Einsatz, würde aber Hilfe bei der Implementierung von Icons benötigen. D.h. ich möchte am Rand zu jedem Menuepunkt ein aussagefähiges Icon hinterlegen können.
Kennt jemenad die Zeile, die ich einfügen müßte ?
Sub Menu_erstellen()
Dim cb2 As CommandBar
Dim cbb, cbb1, cbb2, cbb3 As CommandBarControl
For Each cb2 In Application.CommandBars
If cb2.Name = "Worksheet Menu Bar" Then
Set cbb = cb2.FindControl(Type:=msoControlPopup, Tag:="NAME DES MENUES")
If (cbb Is Nothing) Then
Rem
Else
On Error GoTo Ende
cbb.Delete
End If
On Error GoTo 0
' Neues Menü erstellen
Set cbb = cb2.Controls.Add(Type:=msoControlPopup)
cbb.BeginGroup = True
cbb.Caption = "Menuename"
cbb.Tag = "Menuename"
Set cbb1 = cbb.CommandBar
' Button Hauptmenue Formatierung
Set cbb2 = cbb1.Controls.Add(Type:=msoControlPopup)
cbb2.BeginGroup = True
cbb2.Caption = "Formatierungen" ' erster Menuepunkt
Set cbb = cbb2.CommandBar
'Button Untermenue Formatierungen Erläuterungen
Set cbb2 = cbb.Controls.Add(Type:=msoControlButton)
cbb2.Style = msoButtonCaption
cbb2.BeginGroup = False
cbb2.Caption = "Erläuterungen" - Menueunterpunkt
cbb2.OnAction = "Erl_Formatierungen" - Aufruf des Makros zu diesem Menuepunkt
usw
mit Dank + mfg
Walter