Я пытаюсь получить кнопку, которую я динамически создал в форме Excel, для запуска макроса с именемtransfer который я написал вModule 1 из "Модули" раздел моего проекта.

Ниже я вставил код, который я написал до сих пор в пользовательской форме, которая фактически может создатьTransfer to Sheet кнопка в рамке (which I've also created dynamically) но по какой-то причине, когда я запускаю VBA, я получаю438 error сообщение о том, чтоObject doesn't support this property or method.

Кто-нибудь может сказать мне, как я могу решить это?

Вот код:

<code>Dim framecontrol1 As Control

Set workitemframe = Controls.Add("Forms.Frame.1")
With workitemframe
    .Width = 400
    .Height = 400
    .Top = 160
    .Left = 2
    .ZOrder (1)
    .Visible = True
End With

workitemframe.Caption = "Test"
Set framecontrol1 = workitemframe.Controls.Add("Forms.commandbutton.1")

With framecontrol1
    .Width = 100
    .Top = 70
    .Left = 10
    .ZOrder (1)
    .Visible = True
    .Caption = "Transfer to Sheet"
End With
framecontrol1.OnAction = "transfer"
</code>