Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Я как раз писал Вам просьбу, чтобы Вы показали в комиксах или на видео как Вы собираетесь установить заданную длину стороны фигуры Вашим методом, но Михаил тогда меня опередил с вопросом. Так, что я второй с подобной просьбой. Никогда не поздно узнать чего-то новое.
Припомнил ещё способ заката солнца вручную.
1) Рисуем вспомогательный прямоугольник длиной с текущую сторону фигуры
2) Загоняем фигуру в контейнер/пауэрклип вспомогательного прямоугольника
3) Масштабируем пауэрклип до желаемого размера
4) Извлекаем содержимое
Да и вручную ничего сложного
1) рисуем вспомогательный прямоугольник с длиной стороны равной желаемой
2) прилепляем к нему многоугольник, который будем подгонять
3) Дополнительным кликом по многоугольнику переходим в режим вращения
4) Переносим центр вращения в точку относительно которой будем...
Так попробуйте (предполагается, что у Вас равносторонний многоугольник, без искажений):
Sub Polyside()
ActiveDocument.Unit = cdrMillimeter
ActiveDocument.ReferencePoint = cdrCenter
Set s = ActiveShape
If s.Type = cdrPolygonShape Then
sl = s.DisplayCurve.Length / s.Polygon.Sides...
Если ступеньки окрашены, то стоит заранее обратить внимание на их дизайн. Левый вариант гораздо сложнее высечь (втяжка полос - creeping, точность оборудования и т.п.)
Можно сделать "Топ-10 разыскиваемых на нашем форуме", вся статистика под рукой. И в шапку её с картинками-примерами. Или, если лень, поместить в шапку тему "Это ж Лобстер" с одной картинкой.
Перевод строки оказался не при чём (регулярка тем более). Видимо строки вычисляются при первом вызове For Each. При замене в живом тексте длина текста меняется и указатель на начало следующей строки попадает не туда. Будем пересобирать текст в отдельную переменную, и уже потом менять весь текст...
добавьте строку
Replace s.Text.Story, vbCr, vbCrLf
перед
For Each l In s.Text.Story.Lines
а то перевод каретки не воспринимается как перевод строки, и в текстовки строк попадают произвольные нарезки, в т.ч. и бьющие искомый паттерн на части
В будущем вы можете попасть и на другую проблемку: в...
И где в этом образце class="", которые первый макрос не отлавливает больше двух раз?
Посетите страничку BB-коды, чтобы научиться убирать простыни под спойлер
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.