Проблема с кнопкой

[IgorGO]

ActiveSheet.Shapes(1).DrawingObject.OnAction = "MacroName"

[Ешь]

Сообщение от IgorGO

ActiveSheet.Shapes(1).DrawingObject.OnAction = "MacroName"

Ругается((
1004 нельзя установить свойство OnAction класса OLEObject

[IgorGO]

файл можно посмотреть?

[Ешь]

Сообщение от IgorGO

файл можно посмотреть?

Там в самом конце на листе 1 где комент
'добавляем кнопку изменений

кнопка на листе с названием "итого ставки"

Worksheets(l).Shapes(1).DrawingObje ct.OnAction = "MacroName" тоже не помогла(

Нагрузка3.zip

[IgorGO]

см. вложение

[Ешь]

Сообщение от IgorGO

см. вложение

Дело в том, что когда нажимаешь кнопку начало работы, все листы удаляются вместе с этими кнопками, так что этот вариант не подойдет.
Я решил проблему методом дозаписи кода через VBProject

 Dim cb As OLEObject
    Dim vbc As VBComponent
    Dim cm As CodeModule
    Dim iio As Integer
    
    Set cb = ThisWorkbook.Worksheets(l).OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False)
      
    With cb
         .Left = 6
         .Top = 387
         .Width = 166.5
         .Height = 25.5
                With .Object
                     .Caption = "Штатное расписание"
                     .Font.Name = "Times New Roman"
                     .Font.Size = 8
                End With
    End With
    
    Set vbc = ThisWorkbook.VBProject.VBComponents(Worksheets(l).CodeName)
    Set cm = vbc.CodeModule
    
    With cm
        iio = .CountOfLines + 1
        .InsertLines iio, "Private Sub " & cb.Name & "_Click()"
        iio = iio + 1
        .InsertLines iio, _
        "    MacroName"
        iio = iio + 1
        .InsertLines iio, "End Sub"
    End With
    
    Set cm = Nothing
    Set vbc = Nothing

т.е. при создании кнопки, на том же листе создается код указывающий что при нажатии на кнопку выполняется определенный макрос. Так что проблема решена, всем спасибо!