使用 VBA 改变 Visio 字体样式时，如何依据字体名称而非字体索引进行操作？

Question

我希望使用VBA来更改形状中文本的字体样式（从Calibri更改为Verdana）。目前我有以下代码片段：

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

在我的系统中，235是Verdana字体的索引。然而，字体索引非常不稳定，可能会因为不同的计算机而发生改变。是否有一种可以通过字体名称来更改字体样式的方法，例如...="Verdana"？在Excel中是可以实现的，但我在Visio中找不到类似的语法。谢谢！

- qwer

Answer 1

您可以检查当前电脑上Verdana字体的ID。

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

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

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

- Surrogate