Свойство Document.HeaderFooterFont (Visio)
Указывает шрифт, используемый для текста верхнего и нижнего колонтитулов. Для чтения и записи.
Синтаксис
expression. HeaderFooterFont
Выражение Переменная, представляющая объект Document .
Возвращаемое значение
IFontDisp
Замечания
COM предоставляет стандартную реализацию объекта шрифта с интерфейсом IFontDisp поверх базовой системной поддержки шрифтов. Интерфейс IFontDisp предоставляет свойства объекта шрифта и реализуется в библиотеке типов stdole в виде объекта StdFont , который можно создать в Microsoft Visual Basic. На библиотеку типов stdole автоматически ссылаются все проекты Visual Basic для приложений (VBA) в Microsoft Visio.
Чтобы получить сведения об объекте StdFont , поддерживающем интерфейс IFontDisp , выполните следующие действия.
В группе Код на вкладке Разработчик щелкните Visual Basic.
В меню Вид выберите пункт Обозреватель объектов.
В списке Проект или библиотека щелкните stdole.
В разделе Классы изучите класс с именем StdFont.
Дополнительные сведения об интерфейсе IFontDisp см. в разделе Microsoft Platform SDK на сайте MSDN, Microsoft Developer Network.
Задание свойства HeaderFooterFont эквивалентно настройке значений в поле Шрифт в диалоговом окне Выбор шрифта (перейдите на вкладку Файл , нажмите кнопку Печать, нажмите кнопку Предварительный просмотр, в группе Предварительный просмотр выберите Колонтитул & нижний колонтитул, а затем нажмите кнопку Выбрать шрифт).
Пример
В следующем примере кода показано, как использовать свойство HeaderFooterFont , чтобы получить ссылку на текущий объект Font и задать для текстового шрифта документа значение Arial, не полужирное.
Public Sub HeaderFooterFont_Example()
Dim objStdFont As StdFont
Set objStdFont = ThisDocument.HeaderFooterFont
objStdFont.Name = "Arial"
objStdFont.Bold = False
Set ThisDocument.HeaderFooterFont = objStdFont
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.