Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
PopUpMenu in Flexgrid - Excel2002
Hello,
I'd like to know if it's possible to get a PopUpMenu with Flexgrid when using Excel 2002 ? Regards, Nader |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
PopUpMenu in Flexgrid - Excel2002
Hi,
you can use a regular popup (like when right-clicking a cell) on a userform. 3 steps: - In initialize of the Userform: create the new popup commandbar - hidden. Call CreateMyPopup. - In Tereminate: delete it. Call DeleteMyPopup. - when clicking; doubleClick; or Right-Click a control, show the popup. Call PopupMyPopup. ''' ---------------------------------------------------------- Sub CreatePopupBar() Dim c As CommandBar Dim cbb As CommandBarButton ''' get/create popup bar On Error Resume Next Set c = Application.CommandBars("MyPopup") If Err < 0 Then Set c = Application.CommandBars.Add(Name:="MyPopup", Position:=msoBarPopup, temporary:=True) End If On Error GoTo 0 ''' add controls Set cbb = c.Controls.Add(msoControlButton) cbb.Caption = "submenu1" Set cbb = c.Controls.Add(msoControlButton) cbb.Caption = "submenu2" End Sub Sub DeletePopupBar() On Error Resume Next Application.CommandBars("MyPopup").Delete On Error GoTo 0 End Sub Sub PopupMyPopup() Dim c As CommandBar Set c = Application.CommandBars("MyPopup") c.ShowPopup End Sub '''----------------------------------------------------------- -- Regards, Sébastien <http://www.ondemandanalysis.com "Nader" wrote: Hello, I'd like to know if it's possible to get a PopUpMenu with Flexgrid when using Excel 2002 ? Regards, Nader |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
PopMenu in Flexgrid (with Excel 200) | Excel Programming | |||
Datagrid-Flexgrid | Excel Programming | |||
popupmenu | Excel Programming | |||
Flexgrid Control | Excel Programming | |||
popupmenu is not invoking the code | Excel Programming |