Przypisz kod do przycisku utworzonego dynamicznie
Próbuję uzyskać przycisk, który stworzyłem dynamicznie na formularzu użytkownika programu Excel, aby uruchomić wywołanie makratransfer
które napisałemModule 1
sekcji „Moduły” mojego projektu.
Poniżej wkleiłem kod, który do tej pory napisałem w formularzu użytkownika, który faktycznie potrafi utworzyćTransfer to Sheet
przycisk w ramce (które również stworzyłem dynamicznie) ale z jakiegoś powodu, gdy uruchamiam VBA, dostaję438 error
wiadomość, która to mówiObject doesn't support this property or method
.
Czy ktoś może mi powiedzieć, jak mogę to rozwiązać?
Oto kod:
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"