Метод Control.SizeToFit (Access)

Используйте метод SizeToFit , чтобы размер элемента управления соответствовал тексту или изображению, который он содержит.

Синтаксис

expression. SizeToFit

Выражение Переменная, представляющая объект Control .

Замечания

Например, можно применить метод SizeToFit к кнопке, которая слишком мала, чтобы отобразить весь текст в свойстве Caption .

Метод SizeToFit можно применять к элементам управления только в режиме конструктора или в представлении конструктора отчета.

Метод SizeToFit делает элемент управления больше или меньше в зависимости от размера текста или изображения, которые он содержит.

Используйте метод SizeToFit в сочетании с методом CreateControl для изменения размера новых элементов управления, созданных в коде.

Примечание.

Не все элементы управления, содержащие текст или изображение, могут быть размером с помощью метода SizeToFit . Несколько элементов управления привязаны к данным, размер которых может отличаться от одной записи к другой. К этим элементам управления относятся текстовое поле, поле списка, поле со списком и элементы управления рамками привязанного объекта. Метод SizeToFit не применяется к элементам управления на страницах доступа к данным.

Пример

В следующем примере создается новая форма и кнопка команды в форме. Затем процедура задает свойство Caption элемента управления и размер элемента управления в соответствии с заголовком.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.