Propriedade TextFrame.AutoFitText (Publisher)

Define ou retorna uma constante PbTextAutoFitType que representa como o Microsoft Publisher ajusta automaticamente o tamanho da fonte de texto e o tamanho do objeto TextFrame para melhor exibição. Leitura/gravação.

Sintaxe

expressão. AutoFitText

Expressão Uma variável que representa um objeto TextFrame .

Valor de retorno

PbTextAutoFitType

Comentários

O valor da propriedade AutoFitText pode ser uma das constantes PbTextAutoFitType declaradas na biblioteca de tipos do Microsoft Publisher.

Exemplo

O exemplo a seguir testa para ver se o quadro de texto possui texto e, em caso afirmativo, a propriedade AutoFitText é definida como melhor ajuste.

Sub TextFit() 
 
 Dim tfFrame As TextFrame 
 
 tfFrame = Application.ActiveDocument.MasterPages.Item(1).Shapes(1).TextFrame 
 With tfFrame 
 If .HasText = msoTrue Then .AutoFitText = pbTextAutoFitBestFit 
 End With 
 
End Sub

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.