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"""

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

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

Answer 1

尝试添加前缀。

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

Answer 2

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

Visio VBA - 添加形状数据属性

Visio VBA - Adding Shape Data Properties

vba

visio

ms-office

shapesheet