Método Page.SizeToFit (Access)

Use o método SizeToFit para dimensionar um controle para que ele se encaixe no texto ou imagem que ele contém.

Sintaxe

expressão. Sizetofit

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

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 controle maior ou menor, dependendo do tamanho do texto ou imagem que ele contém.

Use o método SizeToFit em conjunto com o método CreateControl para dimensionar novos controles criados em 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 a seguir 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.