Método Font.Shrink (Publisher)

Reduz o tamanho da fonte para o próximo tamanho disponível. Se a seleção ou o intervalo contiver mais do que um tamanho de fonte, cada tamanho será diminuído para a próxima configuração disponível.

Sintaxe

mais simples. Encolher

expressão Uma variável que representa um objeto Font .

Comentários

Aplicar o método Shrink ao texto que já seja do menor tamanho permitido pelo Microsoft Publisher (0,5 ponto) não tem efeito.

Exemplo

Este exemplo insere uma linha de Zs cada vez menores em um novo 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.