¿Cómo pasar un objeto userform como parámetro/variable a un procedimiento?

Para mostrar un formulario utilizo en forma exitosa el siguiente código:


Public Sub Mostrar_aviso()
With Aviso1
.StartUpPosition = 0
.Left = 200
.Top = 150
.Show
End With
End Sub

donde Aviso1 es el userform

Si yo quisiera armar un procedimiento para mostrar cualquier userform y cuyo nombre lo pase por parámetro cómo podría hacer?

1 respuesta

Respuesta
1

Prueba con algo parecido a:

Sub llamar()
Dim objFormulario As Object
Set objFormulario = Aviso1
Mostrar_aviso objFormulario
End Sub
Public Sub Mostrar_aviso(objFormulario As Object)
With objFormulario
.StartUpPosition = 0
.Left = 200
.Top = 150
.Show
End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas