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

Question

我希望使用 VBA 更改形状中文本的字体样式(从 Calibri 到 Verdana)。目前我有(一段代码)

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

235 是我系统中 Verdana 的字体索引。但是，字体索引非常不稳定，可能会在不同的计算机上发生变化。有没有办法通过字体名称更改字体样式，例如...... =“贝尔达纳”？这在 excel 中是可能的，但我在 Visio 中找不到类似的语法。提前致谢!

Answer 1

Verdana字体的ID在当前PC上可以查看是什么

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

在这一步之后将这个ID设置为字符的字体

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