Как изменить начертание или
шрифт содержимого ячеек
диапазона? При рассмотрении
свойств объекта Range, эти
свойства не обсуждались.
Причиной этого является то, что
объект Range не имеет
свойств Bold, Italic
и т. п. Эти свойства принадлежат
объекту Font, который
относится ко многим объектам,
включая и объект Range.
Покажем использование свойств
объекта Font:
Sub
Formatting ()
With Selection.Font
.Name =
"Times New Roman"
.FontStyle = "Bold" .Size = 12
.Strikethrough = False .Superscript = False
.Subscript = False
.OutlineFont = False .Shadow = False
.Underline = xlUnderlineStyleNone
End With
End Sub
Обратите внимание на свойство Underline.
Можно было бы ожидать, что оно
равно либо True, либо False. Однако
дело обстоит иначе. Excel
поддерживает несколько стилей
подчеркивания. Допустимыми
значениями данного свойства
являются константы : xlUnderlineStyleNone,
xlUnderlineStyleSingle, xlUnderlineStyleDouble,
xlUnderlineStyleSingleAccounting и xlUnderlineStyleDoubleAccounting.