如何使用Vbscript在Visio 2013中添加连接点_Vbscript

如何使用Vbscript在Visio 2013中添加连接点

vbscript

如何使用Vbscript在Visio 2013中添加连接点,vbscript,Vbscript,我正在尝试通过Vbscript代码向形状添加连接点。以下几行是我尝试过的唯一不会导致错误的行，但它们实际上不会创建我要查找的连接点 Set Vapp = GetObject(,"visio.application") Set VP = Vapp.activewindow VP.Page.Shapes.ItemFromID(26).CellsSRC(VisSectionConnectionPts,0, VisCnnctX).FormulaU = ".0815" VP.Page.Shapes.I

我正在尝试通过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"

值得注意的是，在以下命令中使用“vis”不起作用：

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

请注意，我必须将LineColor括在括号中，但这不适用于连接点命令。我遗漏了什么？

我找到了答案（）

由于Vbscript不知道VISSIONCONNECTIONPTS等Visio常量是什么，因此我必须在Visio对象库中查找VISSIONCONNECTIONPTS的索引号。使用这些常量的索引号就可以了