彈出窗口中的代碼不會影響工作表元素

Question

我正在嘗試創建彈出式菜單，它將提供從名爲「元素」（橢圓形+文本框）的形狀組中複製粘貼形狀對象的選項。 但似乎Select &粘貼方法不起作用。

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 

Answer 1

被正確添加了名爲「元素」的形狀（根據不起作用的行？）似乎它被稱爲「測試元素」。