Icon in Kontextmenu
11.08.2005 08:27:38
tim
weiss jemand, wie ich bei einem dynamisch erstellten Menu den Menupunkten icons zuweisen kann? ich habe diese in *.gif-dateien abgespeichert.
der code sieht so aus:
Sub cb()
Dim menu As CommandBar
Dim cbcMenu As CommandBarControl
Dim cbc1 As CommandBarControl
Dim cbc2 As CommandBarControl
Dim cbc3 As CommandBarControl
Dim cbc4 As CommandBarControl
Set menu= Application.CommandBars.ActiveMenuBar
Set cbcMenu = menu.Controls.Add(Type:=msoControlPopup)
cbcMenu.Caption = "Privat"
Set cbc1 = cbcMenu.CommandBar.Controls.Add(Type:=msoControlButton)
With cbc1
.Caption = "Befehl öffnen"
.OnAction = "makro1"
End With
Set cbc2 = cbcMenu.CommandBar.Controls.Add(Type:=msoControlButton)
With cbc2
.Caption = "Befehl Speichern"
.OnAction = "makro2"
End With
Set cbc3 = cbcMenu.CommandBar.Controls.Add(Type:=msoControlButton)
With cbc3
.Caption = "Befehl drucken"
.OnAction = "makro3"
End With
Set cbc4 = cbcMenu.CommandBar.Controls.Add(Type:=msoControlButton)
With cbc4
.Caption = "Zugriff VBA-Code"
.OnAction = "macro4"
End With
End Sub
danke auch