Asignar código a un botón creado dinámicamente
Estoy intentando obtener un botón que he creado dinámicamente en una forma de usuario de Excel para ejecutar una macro llamadatransfer
que he escrito enModule 1
de la sección "Módulos" de mi proyecto.
A continuación, he pegado el código que he escrito hasta ahora en el formulario de usuario que realmente logra crear elTransfer to Sheet
botón en el marco (que también he creado dinámicamente) pero por alguna razón, cuando ejecuto VBA me sale un438 error
mensaje diciendo queObject doesn't support this property or method
.
¿Alguien puede decirme cómo puedo resolver esto?
Aquí está el código:
<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>