Kontextmenü

[strico]

Wie kann ich innerhalb von VBA für Excel ein Kontextmenü beim rechtsklick auf ein Label erzeugen?

[Warfox]

Puhhh das hab ich noch nie gehört...naja da gibts sicher ne einfachere Lösung aber ich würde das aus dem stehgreif einfach mal so machen:

Bastle dir eine Form die das Kontexmenü darstellt, sobald der klick event auf dem label ausgeführt wurde lässt du überprüfen ob es die rechte maustaste war und wenn ja blende die form bei der mauszeigerposition ein.......das ist meine 2 min lösung....

[strico]

Hab ich mir auch schon so ähnlich gedacht, nur eine Form wird ja nicht ausgeblendet, wenn man wieder woanders (außerhalb dieser Form) hinklickt.

[Warfox]

Das stimmt, doch du kannst ja die bewegung des mauszeigers abfragen, geht sie raus aus der form...dann ausblenden....

[strico]

So schwer ist es garnicht. Hab bissel rumgebastelt und siehe da:

Dim cBar As CommandBar

Set cBar = Application.CommandBars.Add("Hallo", msoBarPopup)

cBar.ShowPopup

cBar.Delete

Das einfach ins MouseDown oder sonstiges Mouse-ereignis rein und schon hat man nen leeres Popupmenü.

[Warfox]

Jap auch nicht schlecht na dann passts ja