<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
Dim vsoShape1 As Visio.Shape
Dim vso2DShape2 As Visio.Shape
Dim vsoCellGlueFromBegin As Visio.Cell
'кидаем куда-нибудь на страницу коннектор
Set vsoShape1 = ActiveWindow.Page.Drop(Application.ConnectorToolDataObject, 4.724409, 3.937008)
'определяем его начальную х-координату
Set vsoCellGlueFromBegin = vsoShape1.Cells("BeginX")
'рисуем прямоугольник
Set vso2DShape1 = ActivePage.DrawRectangle(1, 1, 5, 3)
'подсоединяем коннектор к середине..
vsoCellGlueFromBegin.GlueToPos vso2DShape1, 0.5, 1