visio VBA按字体名称而不是字体索引更改Visio字体样式？ 返回

VBA按字体名称而不是字体索引更改Visio字体样式？


陆离
2025-04-04 05:51:45 (4天前) 
  1.         我希望使用VBA来改变形状文本的字体样式（从Calibri到Verdana）。目前我有（一段代码）

Visio.ActivePage.Shapes（1）.Characters.CharProps（…

2 条回复
  1. 0# 荧惑 | 2019-08-31 10-32



    你可以查看是什么
    的
    ID
    </强>
    对于当前PC上的Verdana字体



    1.     
            Dim Verdana_ID As Integer
      Verdana_ID = ActiveDocument.Fonts.Item(“Verdana”).ID
    2. </code>
    3.


    在此步骤之后设置此项
    的
    ID
    </强>
    作为角色的字体



    1.     
            Visio.ActivePage.Shapes(1).Characters.CharProps(visCharacterFont) = Verdana_ID
    2. </code>
    3.

登录 后才能参与评论