我正在創建和測驗一個用戶表單，用戶可以在其中添加形狀并將預定義的形狀資料值添加到形狀資料中。如下圖所示，形狀資料名稱為“元素”。
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。但是它在代碼的最后一行中斷。
**更新：我添加了錯誤訊息。
uj5u.com熱心網友回復：
作為解決方法，您可以洗掉Visio Shape Test.vssm 中未使用的主Square，然后通過您的代碼從模板MS Icons.vssx 中洗掉具有相同名稱的主控！
uj5u.com熱心網友回復：
嘗試添加前綴。
vsoRound.CellsU("Prop.ELement").FormulaU = """風扇"""
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/407576.html
標籤：
上一篇：輸入框不回傳輸入的值