Propiedades de la fuente
Publicado por Sara (171 intervenciones) el 08/04/2013 20:27:10
Buenas.
Estoy intentando hacer un código, de manera que cuando la longitud del campo (Campo1 tamaño 70caracteres) vaya sobrepasando ciertos valores, el tamaño de la fuente se reduzca. Creo haberlo conseguido con FontSize de esta forma:
Dim Longitud As Integer
Longitud = Len(Campo1)
If Longitud > 40 Then Campo1.FontSize = 18
If Longitud > 50 Then Campo1.FontSize = 14
If Longitud > 60 Then Campo1.FontSize = 12
End If
pero creo que es un poco rudimentario. Hay alguna otra forma de hacerlo?.
Cómo puedo cambiar los atributos de una fuente mediante código (tamaño, color, fuente, etc.) en una sola línea?
Gracias y un saludo.
Estoy intentando hacer un código, de manera que cuando la longitud del campo (Campo1 tamaño 70caracteres) vaya sobrepasando ciertos valores, el tamaño de la fuente se reduzca. Creo haberlo conseguido con FontSize de esta forma:
Dim Longitud As Integer
Longitud = Len(Campo1)
If Longitud > 40 Then Campo1.FontSize = 18
If Longitud > 50 Then Campo1.FontSize = 14
If Longitud > 60 Then Campo1.FontSize = 12
End If
pero creo que es un poco rudimentario. Hay alguna otra forma de hacerlo?.
Cómo puedo cambiar los atributos de una fuente mediante código (tamaño, color, fuente, etc.) en una sola línea?
Gracias y un saludo.
Valora esta pregunta
0