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
expressão. Psiquiatra
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de