- Сообщения
- 356
- Реакции
- 79
группу думаю не стоит брать вообще - там и линия может быть, и еще черти что. только один объект все что внутри минус все что снаружи плюс - и сделать выбор шрифта, его размер и цвет )
Так вроде существующий с ним и так нормально работает )Остался последний непонятный момент с масштабом
Без сомнений это главный нюанс! Было бы здорово чтобы еще можно было шкурки менятьИ самое главное - ) - чтобы он под цвет темы подходил ) - Drak Medium или Black )
Добрый день!
Есть макрос который нужно доработать, очень выручал при подсчете объемов! Сам в программировании не разбираюсь! Рассматриваю любые предложения!
не корректно считает комбинированные, не считает сгруппированные и несколько выбранных объектовВерсия трёхдневка:
Код:Sub LenArea() ActiveDocument.Unit = ActiveDocument.Rulers.HUnits MsgBox "Length = " & ActiveShape.DisplayCurve.Length & vbCr & "Area = " & ActiveShape.DisplayCurve.Area End Sub
Дасам это понимает
тоже столкнулся с проблемами при расчетах....может быть немного сократить возможности? либо не считать группы, либо не считать комбинирование... или оставить все как есть в стандартном варианте ))) - тогда может быть вернемся к идее, только не смейтесь:Да
Вообще говоря, я все таки надеялся, что алгоритм можно допилить до вменяемого вида, но, судя по всему, нет, сам принцип подсчета площади через разбиение на криволинейные четырехугольники - порочен.