Método Font.Shrink (Publisher)

Disminuye el tamaño de fuente al siguiente tamaño disponible. Si la selección o el intervalo contienen más de un tamaño de fuente, cada uno de los tamaños se disminuye al siguiente valor disponible.

Sintaxis

expresión. Encogerse

expresión Variable que representa un objeto Font .

Observaciones

Aplica el método Shrink a un texto que ya es el tamaño más pequeño que permite Microsoft Publisher (0,5 puntos) no tiene ningún efecto.

Ejemplo

En este ejemplo se inserta una línea de Z cada vez más pequeñas en un nuevo documento.

Dim shpText As Shape 
Dim trTemp As TextRange 
Dim intCount As Integer 
 
Set shpText = ActiveDocument.Pages(1).Shapes _ 
 .AddTextbox(Orientation:=pbTextOrientationHorizontal, _ 
 Left:=100, Top:=100, Width:=300, Height:=50) 
 
Set trTemp = shpText.TextFrame.TextRange 
 
With trTemp 
 .Font.Size = 45 
 .InsertAfter NewText:="ZZZZZZZZZZ" 
 For intCount = 2 To 10 
 .Characters(Start:=intCount, _ 
 Length:=11 - intCount).Font.Shrink 
 Next intCount 
End With

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.