VBA, чтобы изменить стиль шрифта Visio по имени шрифта вместо индекса шрифта? - PullRequest
Новая
       17

VBA, чтобы изменить стиль шрифта Visio по имени шрифта вместо индекса шрифта?

0 голосов
/ 09 ноября 2018

Я надеюсь использовать VBA для изменения стиля шрифта текстов в формах (от Calibri до Verdana). В настоящее время у меня есть (фрагмент кода) 

Visio.ActivePage.Shapes(1).Characters.CharProps(visCharacterFont) = 235#

235 - это индекс шрифта для Verdana в моей системе. Однако индекс шрифта очень нестабилен и может меняться на разных компьютерах. Есть ли способ изменить стиль шрифта по имени шрифта, например, ... = "Verdana"? Это возможно в Excel, но я не смог найти подобный синтаксис в Visio. Заранее спасибо!

1 Ответ

0 голосов
/ 12 ноября 2018

Вы можете проверить, что такое ID для шрифта Verdana на текущем ПК 

Dim Verdana_ID As Integer
Verdana_ID = ActiveDocument.Fonts.Item("Verdana").ID

И после этого шага установите ID в качестве шрифта символа 

Visio.ActivePage.Shapes(1).Characters.CharProps(visCharacterFont) = Verdana_ID
...