Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Icon in Kontextmenu

Forumthread: Icon in Kontextmenu

Icon in Kontextmenu
11.08.2005 08:27:38
tim
guten morgen
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Icon in Kontextmenu
11.08.2005 14:59:52
Leo
Hi,
zunächst musst du dem control die ensprechende Style-Eigenschaft zuweisen:
.Style = msoButtonIconAndCaption
dann kannst du mit der Methode LoadPicture das Bild laden:
Set picPicture = stdole.StdFunctions.LoadPicture("c:\BildCommandbar\image2.bmp")
Es müssen auf jeden *.bmp sein, gif werden nicht unterstützt.
Du kannst auch die *.bmp zuerst in eine Tabelle laden und mit Copy & Paste
in deinen Button kopieren, da spielt das Bildformat keine Rolle.
mfg Leo
Anzeige
AW: Icon in Kontextmenu
11.08.2005 15:05:36
tim
vielen dank leo. ich werde es gleich versuchen
gruss
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige