TextBox.SizeToFit method (Access) (Método TextBox.SizeToFit [Access])

Utilize o método SizeToFit para dimensionar um controlo para que se ajuste ao texto ou imagem que contém.

Sintaxe

expressão. SizeToFit

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

Comentários

Por exemplo, você pode aplicar o método SizeToFit a um botão de comando que seja muito pequeno para exibir todo o texto contido na propriedade Caption.

Você pode aplicar o método SizeToFit a controles apenas no modo de Design do formulário ou modo Design do relatório.

O método SizeToFit torna um controlo maior ou menor, consoante o tamanho do texto ou imagem que contém.

Utilize o método SizeToFit em conjunto com o método CreateControl para dimensionar novos controlos que criou no código.

Observação

[!OBSERVAçãO] Nem todos os controles que contêm texto ou uma imagem podem ser dimensionados pelo método SizeToFit. Vários controles são vinculados a dados que podem variar de tamanho de um registro para o próximo. Esses controles incluem a caixa de texto, caixa de listagem, caixa de combinação e controles de quadro de objeto acoplado. O método SizeToFit não se aplica a controles em dados páginas de acesso.

Exemplo

O exemplo seguinte cria um novo formulário e um botão de comando no formulário. Em seguida, o procedimento define a propriedade Caption do controle e dimensiona o controle para se ajustar a legenda.

Sub SizeNewControl() 
 Dim frm As Form, ctl As Control 
 
 ' Create new form. 
 Set frm = CreateForm 
 ' Create new command button. 
 Set ctl = CreateControl(frm.Name, _ 
 acCommandButton, , , , 500, 500) 
 ' Restore form. 
 DoCmd.Restore 
 ' Set control's Caption property. 
 ctl.Caption = "Extremely Long Control Caption" 
 ' Size control to fit caption. 
 ctl.SizeToFit 
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.