vba - Visio VBA - 添加形状数据属性

Question

我正在创建和测试一个用户窗体，用户可以在其中添加形状并将预定义的形状数据值添加到形状数据中。如下图所示，形状数据名称为“元素”。

Dim vsoRound As Visio.Shape
Dim cell As Visio.cell

If (CheckBox1.Value) Then

Application.ActiveWindow.Page.Drop Application.Documents.Item("MS Icons.VSSX").Masters.ItemU("Round"), 5, 5

Set vsoRound = Application.ActiveWindow.Page.Shapes.ItemU("Round")

vsoRound.CellsU("ELement").FormulaU = """Fan"""

此形状数据的值为 Fan。但是它在代码的最后一行中断。

**更新：我添加了错误消息。

Answer 1

作为解决方法，您可以删除Visio Shape Test.vssm中未使用的主Square，然后通过您的代码从模板MS Icons.vssx中删除具有相同名称的主控！

Answer 2

尝试添加前缀。

vsoRound.CellsU("Prop.ELement").FormulaU = """风扇"""