如何使用Vbscript在Visio 2013中添加連接點

Question

我想通過Vbscript代碼將連接點添加到形狀。以下幾行是我嘗試過的唯一不會導致錯誤的行，但它們實際上不會創建我正在尋找的連接點。

Set Vapp = GetObject(,"visio.application") 

Set VP = Vapp.activewindow 

VP.Page.Shapes.ItemFromID(26).CellsSRC(VisSectionConnectionPts,0, VisCnnctX).FormulaU = ".0815" 
VP.Page.Shapes.ItemFromID(26).CellsSRC(visSectionConnectionPts, 0, visCnnctY).FormulaU = ".0710" 

這是值得注意的是，使用「可見」不這樣的命令工作爲：

VP.Shapes.ItemFromID(26).CellsU("LineColor").Formula = "rgb(255,192,0)" 

，並注意我必須附上LineColor括號，但不與連接點的命令工作。我錯過了什麼？

Answer 1

我找到了我的答案（http://www.activecallcenter.com/manual/306.htm）。

由於Vbscript不知道VisSectionConnectionPts等Visio常量，因此我必須在Visio對象庫中查找VisSectionConnectionPts的索引號。使用這些常量的索引號工作得很好。