Tamaño de letra en msgbox personalizar un UseForm
Tengo un MsgBox que me da una calificación, lo que necesito es que la calificación salga de tamaño más grande que el tamaño de las letras del resto del mensaje, o en dado caso como lo puedo hacer en un UseForm
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Para cambiar el tamaño de la letra tendría que se en un userform.
En un formulario pon los siguientes controles:
Dos Label, Label1 y Label2
Un command button
En un módulo pon el siguiente código:
Sub MostrarMensaje() 'Por.Dante Amor valor = 10 With UserForm1 .titulo = "MOSTRAR CALIFICACIÓN" .mensaje = "En esta parte va el mensaje" .calificacion = valor .Show End With End Sub
En el formulario pon el siguiente código:
Public titulo Public mensaje Public calificacion ' Private Sub CommandButton1_Click() 'Por.DAM Unload Me End Sub ' Private Sub UserForm_Activate() 'Por.DAM Label1.Caption = mensaje Label2.Caption = calificacion Label2.Font.Size = 18 UserForm1.Caption = titulo End Sub
Cambia el número 18, por el tamaño de letra que desees.
El resultado se podría ver así:
Avísame si tienes dudas de cómo poner el código en tu módulo.
