Kontextmenü bei Objekt Picture erweitern

Bild

Betrifft: Kontextmenü bei Objekt Picture erweitern von: Bernd Henkel
Geschrieben am: 04.02.2005 21:59:13

Hallo zusammen,

ich möchte das Kontextmenü eines per VBA eingefügten Bildes um einen weiteren Menüpunkt erweitern.
Hier die Zeilen für das Einfügen des Bildes...

ActiveSheet.Pictures.Insert(txt_localfile).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:="http://www.xyz.de"
Selection.ShapeRange.Item(1).Name = "Bernd"

Nun das wo ich denke, das das irgendwo eingefügt sein muss, aber was nicht funktioniert !

Set Kontext = Application.CommandBars("???????").Controls.Add
Kontext.BeginGroup = True
With Kontext
.Caption = "Neuer Menüpunkt"
.OnAction = "start_makro"
.FaceId = 44
End With

Was und wo mache ich was falsch ?

Danke schon mal im voraus

--Bernd

Bild


Betrifft: AW: Kontextmenü bei Objekt Picture erweitern von: K.Rola
Geschrieben am: 04.02.2005 22:31:55

Hallo,

Set Kontext = Application.CommandBars("Pictures Context Menu").Controls.Add

Gruß K.Rola


Bild


Betrifft: AW: Kontextmenü bei Objekt Picture erweitern von: Bernd Henkel
Geschrieben am: 04.02.2005 22:46:03

Super !

Das war's. Danke K.Rola


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kontextmenü bei Objekt Picture erweitern"