技巧110 未找到以指定名称命名的项目。

wangpeng692

执行以下代码后，提示“未找到以指定名称命名的项目。”
问题1：未找到以指定名称命名的项目。如何解决？
问题2：如何获得图形对象的名称？
问题3：对指定宏后的图形对象，如何进入编辑状态？

thisworkopen事件
Private Sub Workbook_Open()
    ActiveSheet.Shapes("矩形 2").OnAction = "Macro3"
End Sub
模块代码
Sub Macro3()
    MsgBox "欢迎登录Excel Home论坛！", vbInformation, "Excel Home"
    ActiveSheet.Shapes("矩形2").OnAction = "macro4"
End Sub

Sub Macro4()
    MsgBox "欢迎参加2008年北京奥运会！", vbInformation, "中国"
    ActiveSheet.Shapes("矩形2").OnAction = "macro3"
End Sub

[ 本帖最后由 wangpeng692 于 2010-5-15 10:27 编辑 ]

wangpeng692

原因找到了
矩形2    应为  矩形 2（有空格）