Shapes Context menu 2007

[mightymishra]

Hi All,

I have a piece of code (pasted below) that is not displaying the context menu on shapes, in 2007 (works in 2003).

The "AddRightClick" code adds an item "NEW ITEM", displayed in msgbox using "CheckRighClick" code , however does not show it when right clicked on the shape.

i am not sure if it is possible to get a context menu for shapes in Excel 2007.

CODE:
Sub AddRightClick()
With Application.CommandBars("Shapes")
Set oBtn = .Controls.Add(msoControlButton)
oBtn.Caption = "NEW ITEM"
oBtn.Visible = True
oBtn.Enabled = True
End With
CheckRighClick
End Sub

Sub CheckRighClick()
Dim CBItem As CommandBarControl
Dim Temp As String

For Each CBItem In Application.CommandBars("Shapes").Controls
Temp = Temp + CBItem.Caption & Chr(10)
Next
MsgBox Temp
End Sub

Sub ResetRightClick()
Application.CommandBars("Shapes").Reset
End Sub

Thanks,
Mighty

 

[mightymishra]

I got some clues from "Ron's Excel Tips"

http://www.rondebruin.nl/tips.htm
http://msdn.microsoft.com/en-us/library/gg469862.aspx

I short, it is not possible to see a name on each context menu when you run it in Excel 2007 or Excel 2010 (as explained in the link above).

Please feel free to suggest other aproaches, if any.

 

[Jaafar Tribak]

The above msdn link reads :

In Excel 2007, you can add controls to almost every context menu with VBA code. However, it is not possible to change some context menus such as the Shapes and Picture context menu with VBA. In addition, it is not possible to change context menus with RibbonX.

Does that mean one cannot customize the Shapes context menu in XL 2007 neither via VBA nor via RibbonX ? !

I don't have Excel 2007 to test it .. Can anyone confirm this ?

Regards.