2011-06-08 85 views

回答

0

您可以輕鬆地通過使用做到這一點。關鍵是使用AddCustomFieldU方法對形狀字符對象。

假設您的財產有一個標籤的值爲「BAR」的「FOO」。 (該屬性存儲在一個名爲行 - 在這種情況下,「Prop.Row_1」,這是隻有在ShapeSheet的形狀可見

Dim vsoCharacters2 As Visio.Characters 
Set vsoCharacters2 = myshape.Characters 
vsoCharacters2.Begin = 0 
vsoCharacters2.End = 0 
vsoCharacters2.AddCustomFieldU "Prop.Row_1", visFmtNumGenNoUnits 

這個代碼運行後,形狀的文本將顯示爲「BAR」