Kontextmenü bei Objekt Picture erweitern
04.02.2005 21:59:13
Bernd
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