VBA中自制的弹出式快捷菜单上能用上我任意指定的图标吗！？

Sub CreateCmdBar()
    Dim objBar As CommandBar
    Dim objctr As CommandBarControl
    'Begin insert ico
    On Error Resume Next
    Application.CommandBars("ico").Delete
    On Error GoTo 0
    ThisWorkbook.Sheets("Sheet1").Shapes("pic").Copy
    Set objBar = Application.CommandBars.Add("ico", msoBarFloating, False, False)
    Set objctr = objBar.Controls.Add
           With objctr
             .PasteFace    '将图形Copy至按钮上
             .Enabled = True
           End With
    objBar.Visible = True
 End Sub