Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
да ... всё просто ... когда знаешь :)
одно небольшое сомнение:
- А не стоит ли поменять местами строки
If doreplace Then l.Text = Replace(l.Text, "class=""""", "class=""main""")
If InStr(l.Text, "<g id=""main"">") Then doreplace = True
?
VBA может выдать площадь простой (нескомбинированной) замкнутой кривой
на примеры буквы Q - она разбирается на три таких кривых - далее математика,
или берется длина и ширина охватывающего прямоугольника - BoundigBox
или в растр - и подсчет попиксельно - вот в качестве примера от известного...
IMHO аналогично - просто собраны несколько алгоритмов подсчета площади - вся, внешняя, внутренняя, по растру - судите сами
ОДНАКО! присутствует предупреждение
мы подобную штуку реализовали ещё и для тиснения с шелкухой на разных бумагах
- чтобы романтически настроенный заказчик, на своём безоблачном макете мог воочию посмотреть - чем этот романтизм может закончиться.
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.