Измерение растояния в Excel

@OLEGOFF · Регистрация: 27.02.2013

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане!Помогите пожалуйста в решении следующей проблеммы.
Используя величины прямой линии(Height,Width,Top,Left),хотел измерять растояния на карте или схеме находящейся внутри документа.Всё получилось для случая измерения растояния между двух точек.А вот дальше возникли сложности в связи с тем,что не удается связать координаты начала и конца каждой прямой между собой.Т.к. каждой величине Height,Width,Top,Left соответствует 4 варианта прямых. Из-за чего связывая програмно две прямые между собой получается некоректное поведение связи,т.е. связывая конец одной линии с началом второй,при изменении координат первой иногда происходит обрыв этой связи и образовании связи "конец-конец" или "начало-начало".
В идеале задумывался следующий сценарий поведения связи между прямыми:
-строится прямая.
-после ее построения ей автоматически присваивается имя
-включается макрос по измерению ее длинны
-добавляется автоматически следующая прямая,связанная с первой(связь заключается в присвоении координат конца прямой 1 началу прямой 2),второй конец прямой 2 свободен для перемещения.
-при выделении(активации) прямой 2 после ее построения ей автоматически присваивается имя.

и т.д.

Таким образом можно измерять растояния на любой схеме или карте подобрав конкретный масштаб.

@Казанский · 04.03.2014, 16:25

Не вникал, но сразу вопрос - почему отдельные прямые, а не ломаная ("Полилиния")?
В 2007 ее запрятали в Дополнительные, но после первого использования она появляется на панели "Линии".

@OLEGOFF · 04.03.2014, 16:30 **[ТС]**

"Полилиния" вообще не дает сведений о длине линии,а только о ее габаритах

@Казанский · 04.03.2014, 16:49

А .nodes.points?

shanemac51 · 04.03.2014, 17:00

я бы попробовала расставить опорные точки и макросом определить расстояние между ними

@Казанский · 04.03.2014, 17:05

Нарисуйте ломаную, не снимая выделения запустите макрос

Visual Basic

Sub DlinaLomanoi()
Dim s As ShapeRange, n As ShapeNode, dlina#, x0#, x#, y0#, y#, not1node As Boolean
Set s = Selection.ShapeRange
For Each n In s.Nodes
  If not1node Then
    x = n.Points(1, 1)
    y = n.Points(1, 2)
    dlina = dlina + Sqr((x - x0) ^ 2 + (y - y0) ^ 2)
    x0 = x
    y0 = y
  Else
    x0 = n.Points(1, 1)
    y0 = n.Points(1, 2)
    not1node = True
  End If
Next
MsgBox "длина ломаной " & dlina
End Sub

Попробуйте передвинуть/добавить/удалить узлы и запускайте снова, смотрите, как меняется длина.

@OLEGOFF · 04.03.2014, 20:01 **[ТС]**

Казанский.Большое спасибо за ответ,но к сожалению длина ломаной не соответствует действительности.
это легко проверить построив прямую и замерив ее,затем изогнуть ее под прямым углом,получив таким способом два катета.

Добавлено через 36 минут
Извиняюсь.Это у меня где-то ошибка вкралась.Сегодня вечером потестирую

Добавлено через 1 час 9 минут
Большое спасибо за помощь!Всё работает отлично!

@OLEGOFF · 10.03.2014, 14:43 **[ТС]**

Для измерения на карте растояния в макрос ввёл коэффициент пересчета(масштабирования) и заметил,что результат каждый раз после нового открытия файла разный.Не пойму почему?
Помогите разобраться пожалуйста.

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	04.03.2014, 16:25	2
	Не вникал, но сразу вопрос - почему отдельные прямые, а не ломаная ("Полилиния")? В 2007 ее запрятали в Дополнительные, но после первого использования она появляется на панели "Линии". 0

@OLEGOFF 1082 / 521 / 142 Регистрация: 27.02.2013 Сообщений: 1,501
	04.03.2014, 16:30 [ТС]	3
	"Полилиния" вообще не дает сведений о длине линии,а только о ее габаритах 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	04.03.2014, 16:49	4
	А .nodes.points? 0

@OLEGOFF 1082 / 521 / 142 Регистрация: 27.02.2013 Сообщений: 1,501
	04.03.2014, 20:01 [ТС]	7
	Казанский.Большое спасибо за ответ,но к сожалению длина ломаной не соответствует действительности. это легко проверить построив прямую и замерив ее,затем изогнуть ее под прямым углом,получив таким способом два катета. Добавлено через 36 минут Извиняюсь.Это у меня где-то ошибка вкралась.Сегодня вечером потестирую Добавлено через 1 час 9 минут Большое спасибо за помощь!Всё работает отлично! 0

	10.03.2014, 14:43