Compartilhar via

Propriedade TextFrame2.AutoSize (Office)

  • Artigo

Retorna ou define um valor que indica se o tamanho da forma especificada será alterado automaticamente para ajustar o texto a seus limites. Leitura/gravação.

Sintaxe

expressão. Autosize

Expressão Uma expressão que retorna um objeto TextFrame2 .

Comentários

O valor da propriedade AutoSize pode ser uma das seguintes constantes MsoAutoSize :

  • msoAutoSizeMixed
  • msoAutoSizeNone
  • msoAutoSizeShapeToFitText
  • msoAutoSizeTextToFitShape

Exemplo

O código a seguir mostra como ajustar o tamanho do texto do título no slide um para ajustar o quadro de texto que o contém.

Dim pptSlide As Slide 
 Set pptSlide = ActivePresentation.Slides(1) 
With pptSlide.Shapes(1) 
 If .TextFrame2.TextRange.Characters.Count < 50 Then 
 .TextFrame2.AutoSize = msoAutoSizeTextToFitShape 
 End If 
End With

Confira também

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.