как нарисовать линию

Question

как скриптом vba нарисовать линию от х1-у1 в х2-у2?

Answer 1

Читайте хэлп

Создаете Ipolyline и присваиваете ей координаты х1,у1 и х2,у2

Answer 2

Хелп читать надо, вопросов нет.
Однако, читать его надо повнимательнее.  

Если есть две пары координат, сначала нужно создать две точки (IPoint):
' х1-у1 в х2-у2?
Dim pFrom  As IPoint
Dim pTo  As IPoint

Set pFrom = New Point
Set pTo = New Point

With pFrom
 .X = х1
 .Y = у1
End With

With pTo
 .X = х2
 .Y = у2
End With

Затем из этих двух точек создать линию:

Private Function CreateLine(ByVal pFrom As IPoint, _
                                            ByVal pTo As IPoint) As ILine
  '  This function creates a new Line object with the passed in From and To points.
  Set CreateLine = New esriGeometry.Line
  CreateLine.PutCoords pFrom, pTo
  '
End Function
'

А уже потом, если сильно захочется, можно из линии (одной, или нескольких) создать полилинию, используя ISegmentCollection... Но это уже другая история, т.к. вопрос был поставлен так: "как скриптом vba нарисовать линию"