Frage zu CommandBars("Cell").ShowPopup
04.06.2009 09:37:41
Martin
ich arbeite sehr viel im dem Kontextmenü und beabsichtige mir eine Art "Schalter" (ein einfacher msoControlButton mit wechselnder FaceID) in das Kontextmenü zu bauen. Das Problem dabei ist, dass sich das Kontextmenü daraufhin neu laden soll. Eigentlich klappt das alles auch sehr gut, allerdings ist der "Schalter" nach dem "Neustart" des Kontextmenüs nicht mehr bedienbar. Gibt es eine Möglichkeit das Kontextmenü neu zu laden, so dass auch dieser Schalter weiter bedienbar bleibt?
Viele Grüße
Martin
Hier der Code (stark vereinfacht):
'Den Schalter dem Kontextmenü henzufügen
Sub Kontextmenue()
With CommandBars("Cell").Controls.Add(Type:=msoControlButton, Before:=1)
.Style = msoButtonIconAndCaption
.Caption = "Mein Schalter"
.OnAction = "Schalter"
.FaceId = 990
End With
End Sub
'Makro Schalter ausführen und Kontextmenü neu laden
Sub Schalter()
'[...] Hier steht das normale Makro
'Kontextmenü an gleicher Position neu laden
CommandBars("Cell").ShowPopup x:=CommandBars("Cell").Left, y:=CommandBars("Cell").Top
End Sub