Access - Propiedades de la fuente

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.

Hola.

Para cambiar los atributos de fuente tienes que cambiar varias propiedades. Lo de una o más líneas...

Campo1.FontSize = 18
Campo1.ForeColor = vbBlue
Campo1.FontBold = True
etc.

se podría poner
Campo1.FontSize = 18: Campo1.ForeColor = vbBlue: Campo1.FontBold = True
pero seguro que no es lo que buscas.

En cuanto a simplificar la condición de la longitud para establecer la propiedad usa IIf

Campo1.FontSize = IIf(Longitud > 60, 12, IIf(Longitud > 50, 14, IIf(Longitud > 40, 18, 20)))

Un saludo.