Свойство InvisibleApp.DialogFont (Visio)

  • Статья

Возвращает сведения о шрифтах, используемых Microsoft Visio в своих диалоговых окнах. Только для чтения.

Синтаксис

expression. DialogFont

Выражение Переменная, представляющая объект InvisibleApp .

Возвращаемое значение

IFontDisp

Замечания

Используйте это свойство для отображения диалоговых окон тем же шрифтом, что и диалоговые окна Visio.

COM (компонентная объектная модель) предоставляет стандартную реализацию объекта шрифта с интерфейсом IFontDisp поверх базовой системной поддержки шрифтов. Интерфейс IFontDisp предоставляет свойства объекта шрифта и реализуется в библиотеке типов stdole в виде объекта StdFont , который можно создать в Microsoft Visual Basic. На библиотеку типов stdole автоматически ссылаются все проекты Visual Basic в Visio.

Получение сведений об объекте StdFont, поддерживающем интерфейс IFontDisp

  1. В группе Код на вкладке Разработчик выберите Visual Basic.

  2. В меню Вид выберите Обозреватель объектов.

  3. В списке Проект или библиотека выберите stdole.

  4. В разделе Классы изучите класс с именем 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 и обратная связь.