Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Создание пользовательских п ÒÉÌÏÖÅÎÉÊ ÓÒÅÄÓÔÁÍ...doc
Скачиваний:
6
Добавлен:
18.11.2019
Размер:
2.02 Mб
Скачать

Cвойства, связанные с шириной и высотой ячейки

Свойства

Примеры и комментарии

ColumnWidth (R/W Variant)

Возвращает или изменяет ширину колонки в единицах, эквивалентных одному символу в стиле Обычный (Normal). Шрифт стиля по умолчанию Arial Cyr и размер шрифта 10.

Range("A1").ColumnWidth=15 устанавливает ширину колонки A в 15 символов

Width (R/O Variant)

Возвращает ширину интервала ячеек в пунктах.

Range("A1").Width возвращает значение 93.75, если ширина колонки 15 символов, шрифт Times New Roman, размер шрифта 12 пунктов (72 пункта равны 1 дюйму или приблизительно 2,54 см).

Debug.Print Range("A1:C3").ColumnWidth распечатает значение 8.43, а оператор Debug.Print Range("A1:C3").Width распечатает значение 144, если для колонок установлена стандартная ширина, шрифт Arial Cyr и размер шрифта 10

RowHeight (R/W Variant)

Возвращает или изменяет высоту строк интервала в пунктах.

ActiveCell.RowHeight = 14 устанавливает высоту строки, в которой находится активная ячейка в 14 пунктов

Height (R/O Variant)

Возвращает суммарную высоту интервала строк, зависящую от названия и размера шрифта. Если шрифт Arial Cyr и размер шрифта 10, то Debug.Print Range("A1").Height распечатает 12,75 и Debug.Print Range("A1:C3").Height распечатает 38,25

WrapText (R/W Boolean)

Range("A1").WrapText=True

Значение True разбивает текст ячейки на несколько строк, если ширина столбца недостаточна для размещения текста целиком

Замечание

  • Свойства Width и Height имеют статус Read-Only для объектов Range, но для других объектов, например, для объекта Window, они имеют статус Read-Write.

Пример

Процедура устанавливает ширину столбцов и высоту строк рабочего листа.

Sub set_width()

Cells.ColumnWidth = 8 'ширина всех колонок рабочего листа

Range("B1").Activate

ActiveCell.ColumnWidth = 14 'ширина столбца с активной ячейкой

ActiveCell.RowHeight = 28 'высота строки с активной ячейкой

ActiveCell.Font.Bold = True

ActiveCell.Value = "Максимальная длина"

ActiveCell.WrapText=True 'текст размещается в двух строках

Cells(3, 1).Formula = Cells(1, 2).Formula

Cells(3, 1).Columns.AutoFit 'достаточная ширина колонки A для размещения находящегося в ней

'эначения максимальной длины

Debug.Print Cells(3, 1).ColumnWidth, Cells(3, 1).Width 'распечатка новой ширины колонки A в символах и пунктах.

End Sub