Re: макросы: по просьбам трудящихся
Написал magnus_z в 15/01/2008 13:37:09
Цитата:
Для выбранной кривой:
Private Sub Test()
ActiveDocument.Unit = cdrMillimeter ' показывает в мм
MsgBox ActiveShape.Curve.Length & " мм"
End Sub
ilyha wrote:
есть дуга, нужно измерить длинну.
м.б. кто знает каким способом можно измерить длинну кривой ?
либо кто видел подобный скриптик.
Для выбранной кривой:
Private Sub Test()
ActiveDocument.Unit = cdrMillimeter ' показывает в мм
MsgBox ActiveShape.Curve.Length & " мм"
End Sub
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=78938
