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

作者: 陆离
发布时间: 2024-05-31 10:17:25 (1月前)
转自：

2 条回复

0#
回复此人
荧惑 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你可以查看是什么的<strong> ID </强> 对于当前PC上的Verdana字体 </p> <pre> <code> Dim Verdana_ID As Integer Verdana_ID = ActiveDocument.Fonts.Item("Verdana").ID </code> </pre> <P> 在此步骤之后设置此项的<strong> ID </强> 作为角色的字体 </p> <pre> <code> Visio.ActivePage.Shapes(1).Characters.CharProps(visCharacterFont) = Verdana_ID </code> </pre> </DIV>

编辑

登录后才能参与评论