VBA visio - 无法更改元素中的字体大小

Question

我想知道为什么我在尝试更改元素的字体大小时完全没有反应。

我的密码是：

For Each Vshp In VPage.Shapes
    If Vshp.Name Like "*UG*" Then
        Debug.Print Vshp.ID & " - " & Vshp.Master.Name
        Vshp.CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "12 pt"
    End If
Next

以下链接中的两种方法都不起作用：

如何在 vba 中更改形状文本的样式？

通过 Visual Basic 在 Visio 中更改字体大小

Answer 1

你的形状可能是组。您需要将公式应用于组内的形状。

Answer 2

您必须使用绘图资源管理器窗口。
在那里你无法在树视图中找到页面的内容

在这种情况下，我们可以看到 4 个子形状变成 UG 形状……
如果您需要更改带有文本NRTH-X-AF01AK的子形状的字体大小，您需要更改行

Vshp.CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "12 pt"

到线

Vshp.Shapes(4).CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "12 pt"