VBA + Excel Кнопка на листе

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

Как можно программно повесить на кнопку макрос? Кнопка находится на обычном экселевском листе...

Решение задачи: «VBA + Excel Кнопка на листе»

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

                            <font color="blue">Set</font> cb = ThisWorkbook.Worksheets(<font color="teal">"Лист1"</font>).OLEObjects.Add( _
      ClassType:=<font color="teal">"Forms.CommandButton.1"</font>, Link:=False, _
      DisplayAsIcon:=False, Left:=<font color="darkblue"><b>200</b></font>, Top:=<font color="darkblue"><b>40</b></font>, _
      <font color="blue">Width</font>:=<font color="darkblue"><b>100</b></font>, Height:=<font color="darkblue"><b>30</b></font>)
    
    cb.<font color="blue">Object</font>.Caption = <font color="teal">"Меню"</font>
                        