Modifying the right-click popup menu of a shape

  • Thread starter Thread starter Don Lopez
  • Start date Start date
D

Don Lopez

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
 
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
 
That worked perfectly. Thank you.


John Dijkman said:
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
 
Back
Top