Я пытаюсь получить кнопку, которую я создал динамически в форме excel userform, чтобы запустить макрос с именем transfer
, который я написал в разделе Module 1
раздела "Модули" моего проекта.
Ниже я вставил код, который я написал до сих пор в пользовательской форме, которая фактически управляет созданием кнопки Transfer to Sheet
в фрейме (который я также создавал динамически), но по какой-то причине, когда я запускаю VBA Я получаю сообщение 438 error
, говорящее, что Object doesn't support this property or method
.
Может ли кто-нибудь сказать мне, как я могу это разрешить?
Здесь код:
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"