Вопрос по VBA

Формулировка задачи:

Есть програмка написанная на VBA как создать кнопку с подключонным макросом на панели Excel для вызова формы программно

Решение задачи: «Вопрос по VBA»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> MyMacro()
    MsgBox <font color="teal">"MyMacro."</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Public</font> <font color="blue">Sub</font> CreateCommandBar()
    <font color="blue">Dim</font> cb <font color="blue">As</font> Office.CommandBar
    <font color="blue">Dim</font> cbButton <font color="blue">As</font> Office.CommandBarButton
    
    <font color="blue">Set</font> cb = Application.CommandBars.Add( _
      <font color="blue">Name</font>:=<font color="teal">"MyCommandBar"</font>, _
      Position:=msoBarTop, _
      MenuBar:=False, _
      Temporary:=True)
    
    <font color="blue">Set</font> cbButton = cb.Controls.Add( _
      <font color="blue">Type</font>:=msoControlButton, _
      Temporary:=True)
    
    <font color="blue">With</font> cbButton
        .Caption = <font color="teal">"&Button1"</font>
        .FaceId = <font color="darkblue"><b>59</b></font>
        .Style = msoButtonIcon
        .OnAction = <font color="teal">"MyMacro"</font>
    <font color="blue">End</font> <font color="blue">With</font>
    
    cb.Visible = True
    
    <font color="blue">Set</font> cbButton = <font color="blue">Nothing</font>
    <font color="blue">Set</font> cb = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        