Построение полилинии по координатам

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Построение полилинии по координатам (Макросы/Sub)

rotten41

Дата: Суббота, 10.06.2017, 20:47 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый вечер, специалисты по экселю.
Помогите решить вопрос.

В таблице находятся координаты - замкнутой ломаной линии (имеются ввиду координаты на листе Автофигуры Полилинии).
Как при щелчке на кнопку - заставить макрос нарисовать Полилинию по этим координатам - на листе , стерев при этом предыдущую Полилинию ?

К сообщению приложен файл: 657567.xls (32.0 Kb)

Ответить

AndreTM

Дата: Суббота, 10.06.2017, 22:04 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

А попробовать начать делать?

Шейпы, вообще-то, объекты внедряемые, так что внутренняя структура шейпа - это дело объектной модели самого шейпа.

С другой стороны, возьмём ту же полилинию.
У неё коллекция .Nodes должна содержать все узлы; в узле свойство .SegmentType = тип полилинии узла, а свойство .Points - точку узла.

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

rotten41

Дата: Суббота, 10.06.2017, 22:58 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

AndreTM, а в коде - это как должно выглядеть ?

Ответить

Roman777

Дата: Воскресенье, 11.06.2017, 14:12 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

rotten41, что-то типа такого:
[vba]

Код

Sub Макрос1()
Dim sh As Shape
Dim r As Range
Dim t() As Single
    Set r = ActiveSheet.Range("C8:D13")
    n& = r.Rows.Count
    ReDim t(n, 2)
    For i = 1 To n
        t(i, 1) = r.Cells(i, 1).Value
        t(i, 2) = r.Cells(i, 2).Value
    Next i
    For Each sh In ActiveSheet.Shapes
        If sh.Type = 5 Then
            sh.Delete
        End If
    Next sh
    Set sh = ActiveSheet.Shapes.AddPolyline(t)
    sh.Fill.Visible = msoFalse
    sh.Name = "Полилиния"
End Sub

[/vba]
А для точности удаления именно предыдущей линии, созданной этим макросом (а не всех полилиний, которые есть на листе, как сейчас), можно давать имя конкретное в строке [vba]

Код

sh.Name = "Полилиния_Своё_имя"

[/vba], и в Макросе прописать условие вместо:
[vba]

Код

        If sh.Type = 5 Then
            sh.Delete
        End If

[/vba]
[vba]

Код

        If sh.Name = "Полилиния_Своё_имя" Then
            sh.Delete
        End If

[/vba]

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Воскресенье, 11.06.2017, 14:17

Ответить

rotten41

Дата: Воскресенье, 11.06.2017, 15:52 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Roman777, не работает.
Выдает ошибку "Run-time error `1004` Указанный параметр имеет неправильный тип данных".
Если нажать на кнопку Debug - то в макросе подсветится строка: Set sh = ActiveSheet.Shapes.AddPolyline(t)