Excel VBA：右键单击形状并添加新菜单项

Question

我在 Windows XP 机器上使用 Excel 2007。 在我的工作表上，我有很多“形状”（矩形）。

我已将宏分配给形状，以便它们在有人点击它们时执行任务。

我想做的是以下，但我读过帖子说这是不可能的。

• 当有人右键单击某个形状时，是否可以添加新的菜单项？

当有人右键单击单元格时很容易做到这一点，但形状看起来不同。

我知道工作表有一个名为“Worksheet_BeforeRightClick”的事件，但是当我右键单击一个形状时，我无法让它工作。

下面是我的代码的开头，但它对我的菜单没有任何影响。

提前致谢

With Application.CommandBars("Shapes")
    With .Controls.Add
        .Caption = "My New Menu Item"
        .BeginGroup = True
        .OnAction = "MyNewMacro"
    End With
End With

Answer 1

据我了解，您想添加一个宏，该宏在运行时会创建另一个形状 (?)。如果这是真的，你可以运行类似的东西：

Sub AddShape ()
Sheets("YourSheetName").Shapes.AddShape(msoShapeRectangle, 35.25, 30.75, 121.5, 51.75).Select
'Add some additional info like name and style, or even attach another macro to it:    
Selection.ShapeRange.Name = "Test_Name"
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset36
Selection.OnAction = "Testmacro"
End Sub

Sub TestMacro
MsgBox "Hello"    
EndSub