Свойство Application.DialogFont (Visio)
Возвращает сведения о шрифтах, используемых Microsoft Visio в своих диалоговых окнах. Только для чтения.
Синтаксис
expression. DialogFont
выражение: переменная, представляющая объект Application.
Возвращаемое значение
IFontDisp
Замечания
Используйте это свойство для отображения диалоговых окон тем же шрифтом, что и диалоговые окна Visio.
COM (компонентная объектная модель) предоставляет стандартную реализацию объекта шрифта с интерфейсом IFontDisp поверх базовой системной поддержки шрифтов. Интерфейс IFontDisp предоставляет свойства объекта шрифта и реализуется в библиотеке типов stdole в виде объекта StdFont , который можно создать в Microsoft Visual Basic. На библиотеку типов stdole автоматически ссылаются все проекты Visual Basic в Visio.
Получение сведений об объекте StdFont, поддерживающем интерфейс IFontDisp
В группе Код на вкладке Разработчик выберите Visual Basic.
В меню Вид выберите Обозреватель объектов.
В списке Проект или библиотека выберите stdole.
В разделе Классы изучите класс с именем StdFont.
Пример
В следующем примере кода показано, как получить ссылку на объект StdFont , который передает сведения о шрифтах приложения, и как вывести эти сведения в окно Интерпретация.
Sub DialogFont_Example()
Dim objStdFont As StdFont
Set objStdFont = Application.DialogFont
With objStdFont
Debug.Print .Bold
Debug.Print .CharSet
Debug.Print .Italic
Debug.Print .Name
Debug.Print .Size
Debug.Print .Strikethrough
Debug.Print .Underline
Debug.Print .Weight
End With
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.