Variar tamaño de letra en Textbox seleccionados

[Visor]

Saludos amigos del foro, me gustaria saber como puedo variar el tamaño de letra en un textbox a veces es necesario ampliar para lograr leer texto pequeño teniendo que subir el tamaño, o ver panoramicamente todo el texto para lo cual hay que bajar el tamaño.

Acudo a sus habilidades y conocimientos para hacer funcionar el problema de este tema.

Agradezco sus gentiles colaboraciones

subo el archivo para que lo vean.

 

Variar tamaño de letra en Textbox.xlsm

[Enigma25]

Hola

 

Prueba dibujando un nuevo SpinButton en este caso seria el SpinButton2 y colocale esto :

Private Sub SpinButton2_Change()
    Texto2.Font.Size = SpinButton2.Value
End Sub

Luego comentas como lo ves.

[Visor]

Gracias Enigma, primero  ya veo que da lo mismo escribir Font.Size con punto, o sin punto FontSize 

En segundo lugar ya que esto SpinButton1.Value es lo que permite variar el tamaño del texto funciona de maravilla, pero...., como lograr que al seleccionar el o los checkbox pueda utilizar el mismo control SpinButton1 para variar el o los checkbox seleccionados?, con la siguiente condición puedo variar los tres textbox cualquiera que sea el numero del checkbox

En lugar de usar un SpinButton para cada textbox que tenga en un userform

Private Sub SpinButton1_Change()
n = SpinButton1.Value

If ChBxT1 Or ChBxT2 Or ChBxT3 = True Then

Texto1.FontSize = n 'or
Texto2.FontSize = n 'or
Texto3.FontSize = n

Else
Exit Sub
End If
End Sub

espero que haya un modo

 

[Enigma25]

Hola

En cada CheckBox coloca estas lineas:

Private Sub ChBxT1_Click()
    Texto1.Font.Size = 8.25
End Sub

Private Sub ChBxT2_Click()
    Texto2.Font.Size = 8.25
End Sub

Private Sub ChBxT3_Click()
    Texto3.Font.Size = 8.25
End Sub

Y en el evento chance del SpinButton1 coloca esto:

	    SpinButton1.Min = 8.25
	    Texto1.Font.Size = 8.25
	    Texto2.Font.Size = 8.25
	    Texto3.Font.Size = 8.25
	If ChBxT1.Value = True Then
	    Texto1.Font.Size = SpinButton1.Value
	End If
	If ChBxT2.Value = True Then
	    Texto2.Font.Size = SpinButton1.Value
	End If
	If ChBxT3.Value = True Then
	    Texto3.Font.Size = SpinButton1.Value
	End If
	 
	

[Visor]

Ya!! es justo lo que necesitaba, es Excel-lente, 

los checkbox siempre van a mantenerse en tamaño como minimo en 8,25

Hace 16 minutos , Enigma25 dijo:

Texto1.Font.Size = 8.25

y en el comando del spin también, y ademas las condicionales son tres separados y asi se pueden controlas según la que seleccione

Te estoy muy agradecido

Tema solucionado

[Antoni]

Cita

Gracias Enigma, primero  ya veo que da lo mismo escribir Font.Size con punto, o sin punto FontSize 

No, no es lo mismo.

.FontSize es una propiedad de los controles ActiveX.

.Size es una propiedad del objeto .Font dentro del objeto .Range

 

Ejemplos correctos:

Range("A1").Font.Size=8

TextBox1.FontSize=8

 

Ejemplos incorrectos:

Range("A1").FontSize=8

TextBox1.Font.Size=8

 

 

 

 

 

[Visor]

Gracias Macro Antonio, es muy oportuna tu aclaración lo dije porque 

tanto asi:

Texto1.FontSize = SpinButton1.Value

como asi:

Hace 12 horas, Enigma25 dijo:

Texto1.Font.Size = SpinButton1.Value

Me funcionó bien en el userform, no me produjo errores

ahora si  es incorrecto ,  es incorrecto!

 

te quedo muy agradecido

 

Tema solucionado