Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modifying the right-click popup menu of a shape
I would like to add an item to the right-click menu of all of the
shapes in a particular workbook of mine. This will launch a sub that goes into an Access database and resizes the shape depending on the calculated time left to produce the order. Is this possible? I would definately like to keep the default menu items there too. I noticed also that VB code doesn't seem to run when a shape is selected (I get a beep and nothing happens) Is this going to prevent me from launching code from the right-click menu of a shape? Does anyone know of any websites/resources that could get me up to speed on Excel shapes? Any help would be greatly appreciated! DL |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modifying the right-click popup menu of a shape
Don, try this
Sub addtoshortcutMN() Set AddItem = CommandBars("shapes").Controls.Add With AddItem .Caption = "test" .OnAction = "testmacro" .BeginGroup = True End With End Sub Sub RESETaddtoshortcutMN() CommandBars("shapes").Reset End Sub -----Original Message----- I would like to add an item to the right-click menu of all of the shapes in a particular workbook of mine. This will launch a sub that goes into an Access database and resizes the shape depending on the calculated time left to produce the order. Is this possible? I would definately like to keep the default menu items there too. I noticed also that VB code doesn't seem to run when a shape is selected (I get a beep and nothing happens) Is this going to prevent me from launching code from the right-click menu of a shape? Does anyone know of any websites/resources that could get me up to speed on Excel shapes? Any help would be greatly appreciated! DL . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modifying the right-click popup menu of a shape
That worked perfectly. Thank you.
"John Dijkman" wrote in message ... Don, try this Sub addtoshortcutMN() Set AddItem = CommandBars("shapes").Controls.Add With AddItem .Caption = "test" .OnAction = "testmacro" .BeginGroup = True End With End Sub Sub RESETaddtoshortcutMN() CommandBars("shapes").Reset End Sub -----Original Message----- I would like to add an item to the right-click menu of all of the shapes in a particular workbook of mine. This will launch a sub that goes into an Access database and resizes the shape depending on the calculated time left to produce the order. Is this possible? I would definately like to keep the default menu items there too. I noticed also that VB code doesn't seem to run when a shape is selected (I get a beep and nothing happens) Is this going to prevent me from launching code from the right-click menu of a shape? Does anyone know of any websites/resources that could get me up to speed on Excel shapes? Any help would be greatly appreciated! DL . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Modifying Data in Drop Down Menu | Excel Worksheet Functions | |||
Popup Menu / Shortcut Menu | Excel Discussion (Misc queries) | |||
Can I add a Macro to right-click Menu? | Excel Discussion (Misc queries) | |||
Auto Shape Menu | Excel Discussion (Misc queries) | |||
Non-functional Popup Menu Boxes | Charts and Charting in Excel |