Рисование в Word

Алексей34

Дата: 08.02.2016 00:21:29

Здравствуйте,
Помогите решить проблему
Есть каталог координат X и Y Нужно нарисовать по координатам фигуру в Word - e
Чтобы получилось что-то наподобие кадастрового плана

Номер т	X	Y
1	4261529.30211	3151440.04995
2	4261467.36651	3151408.51321
3	4261354.35135	3151350.96091
4	4261355.84447	3151335.15754
5	4261359.0122	3151323.99515
6	4261452.5013	3151185.39553
7	4261541.46156	3151192.21699
8	4261550.27179	3151185.61558
9	4261576.18278	3151145.12693
10	4261581.37158	3151113.53017
11	4261574.01322	3151076.31222
12	4261570.45778	3151051.897
13	4261570.73001	3151035.11342
14	4261564.84827	3151023.60095
15	4261514.76688	3151001.54624
1	4261529.30211	3151440.04995

Predeclared

Дата: 08.02.2016 01:07:36

Как-то так попробуйте:

    With Documents(1).Shapes.AddLine(81.75, 47.75, 41.5, 68.25)
        .Nodes.Insert 1, msoSegmentLine, msoEditingAuto, 45.75, 28.75
        '...
    End With

Predeclared

Дата: 08.02.2016 02:12:16

Что-то у меня двойка по вашим точкам нарисовалась.
:)
Здесь я рисовал отдельные линии для каждого шага, так проще.