Здравствуйте еще раз. Пишу скрипт для черчения с автоматической привязкой, есть у меня "жирная точка" с четырьмя клеевыми точками, есть линия... Пытаюсь перетащить на лист жирную точку, нарисовать линию, а затем конец линии приклеить к одной из клеевых точек на моей жирной точке. Код такой:
Код:
Application.ActiveWindow.Page.DrawLine X1, Y1, X2, Y2
Count = ActivePage.Shapes.Count
ActivePage.Drop Application.Documents.Item("Точки соединения.vss").Masters.ItemU("Master.8"), X2, Y2
Dim vsoCell1 As Visio.Cell, vsoCell2 As Visio.Cell
' Count мы считали после того как нарисовали линию
Set vsoCell1 = ActivePage.Shapes(Count).CellsU("EndX")
' А объект перетащили уже после того как считали Count
Set vsoCell2 = ActivePage.Shapes(Count + 1).CellsSRC(7, 0, 0) ' Значения 7, 0, 0 взял из записанного мною макроса
vsoCell1.GlueTo vsoCell2
А в результате получаю сообщение
Ячейка по ссылке Sheet.5!Connections.X1 не существует
Судя по дебаггеру, сообщение вызывается именно последней приведенной мною строкой программы
З.Ы. Чуть не забыл самое главное - помогите пожалуйста
))