0

我正在尝试创建弹出菜单，这将提供从名为“元素”（椭圆形+文本框）的形状组中复制粘贴形状对象的选项。但似乎 Select & Paste 方法不起作用。

Public Element_Menu As CommandBar

Function CreateSubMenu() As CommandBar

    Const pop_up_name = "pop-up menu"

    Dim the_command_bar As CommandBar
    Dim the_command_bar_control As CommandBarControl

    For Each menu_item In CommandBars
        If menu_item.Name = pop_up_name Then
            CommandBars(pop_up_name).Delete
        End If
    Next

    Set the_command_bar = CommandBars.Add(Name:=pop_up_name, Position:=msoBarPopup, MenuBar:=False, Temporary:=False)

    Set the_command_bar_control = the_command_bar.Controls.Add
    the_command_bar_control.Caption = "Add &Element"
    the_command_bar_control.OnAction = "AddElement"

    Set CreateSubMenu = the_command_bar

End Function

Sub ElementClick()

    Set Element_Menu = CreateSubMenu
    Element_Menu.ShowPopup

End Sub

Sub AddElement()

    ActiveSheet.Shapes("Element").Select 'Selecting template object to replicate
    ActiveSheet.Paste 'Inserting copy out from the clipboard 

End Sub
4

1 回答 1

1

添加的形状是否正确命名为“元素”（根据不起作用的行？）它似乎被称为“测试元素”。

于 2014-02-25T03:10:30.200 回答