How to figure out which right-click context menu is appearing when clicking shape/picture

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance



I have recently converted to 2007 from 2003 and have a problem with
accessing the commands on the right click menu for a grouped shape.
This code used to work but now it appears as though another menu is
appearing and I don't believe that "pictures context menu" is it
either. So the question is how to determine the name of the menu I
see?

Application.CommandBars("Shapes").Reset

Dim CB As CommandBar
Dim Ctrl As CommandBarControl

Set CB = .CommandBars("Shapes")

For Each Ctrl In CB.Controls
Ctrl.Delete
Next
Set Ctrl = CB.Controls.Add(Type:=msoControlButton)
With Ctrl
.Caption = "Insert Picture"
.OnAction = "CompInsert"
.FaceId = 295
End With
Set Ctrl = CB.Controls.Add(Type:=msoControlButton)
With Ctrl
.Caption = "Delete Picture"
.OnAction = "CompDelete"
.FaceId = 292
End With
.



Relevant Pages

  • Re: Adding Line Style on Forms (or another way)?? [SOLVED]
    ... With Ctrl ... Set Ctrl = Frm.Controls.Add ... Dim MyContrl As Control ... For Each MyContrl In Controls ...
    (microsoft.public.excel.programming)
  • Re: Hitachi A-Trains
    ... >>> EMU family. ... Their press release about the CTRL contract includes ... >>> (Scroll down for pic) ... > Notice how the EMU has a stubby front, just like the picture I ...
    (uk.railway)
  • Re: how can I cut and paste into the comment box
    ... Maybe you actually added a picture using the technique that Deb shared. ... Marie wrote: ... "Dave Peterson" wrote: ... do a ctrl c then when you get to the comments box point and do a ctrl v. ...
    (microsoft.public.excel.misc)
  • Re: how can I cut and paste into the comment box
    ... Maybe you actually added a picture using the technique that Deb shared. ... Marie wrote: ... "Dave Peterson" wrote: ... do a ctrl c then when you get to the comments box point and do a ctrl v. ...
    (microsoft.public.excel.misc)
  • Re: Adding Line Style on Forms (or another way)?? [SOLVED]
    ... With Ctrl ... Set Ctrl = Frm.Controls.Add ... Dim MyContrl As Control ... For Each MyContrl In Controls ...
    (microsoft.public.excel.programming)