Как добавить точки подключения в Visio 2013 с помощью Vbscript

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 не знает, какие константы Visio, такие как VisSectionConnectionPts, я должен найти номер индекса для VisSectionConnectionPts в библиотеке объектов Visio. Использование индексных чисел для этих констант работает очень хорошо.