Переноса текста по словам в ячейках диапазона на рабочем листе Excel из кода VBA. Свойство WrapText объекта Range, возвращаемые значения. Примеры.
Свойство Range.WrapText
Текст в ячейках переносится по словам. Если слово не умещается в ячейке целиком, происходит перенос части слова. Обычно, высота строки рабочего листа автоматически подбирается под ячейку с максимальным количеством строк, образовавшихся в результате переноса текста.
Синтаксис
Expression.WrapText
Expression – выражение (переменная), возвращающее объект Range.
Значения
Значения, которые возвращает свойство Range.WrapText:
| Параметр | Значение |
|---|---|
| True | Во всех ячейках указанного диапазона включен перенос текста на новые строки. |
| False | Во всех ячейках указанного диапазона отключен перенос текста на новые строки. |
| Null | В указанном диапазоне присутствуют пустые ячейки, или есть ячейки как с переносом текста, так и без переноса. |
Примеры
Пример 1
Указание программе Microsoft Excel, что она должна или не должна переносить текст в ячейках заданного диапазона:
|
1 2 3 4 5 6 7 8 |
'переносить текст в активной ячейке ActiveCell.WrapText = True 'переносить текст во всех ячейках заданного диапазона Range("A1:F20").WrapText = True 'не переносить текст в ячейке Cells(1, 5) Cells(1, 5).WrapText = False 'не переносить текст во всех ячейках выбранного диапазона Selection.WrapText = False |
Пример 2
Присвоение значения, возвращаемого свойством Range.WrapText, переменной:
|
1 2 3 |
Dim a As Variant a = Range("B2").WrapText a = Rows("1:2").WrapText |
Пример 3
Просмотр значения, возвращаемого свойством Range.WrapText, с помощью информационного окна MsgBox:
|
1 2 3 4 5 |
If Not Selection.WrapText = Null Then MsgBox Selection.WrapText Else MsgBox "Null" End If |
Условие необходимо из-за того, что MsgBox не может отобразить значение Null – возникает ошибка. Поэтому, когда свойство Range.WrapText = Null, мы задаем в качестве аргумента функции MsgBox – строку «Null».