Результаты поиска

Желающие дополнить тему чем-нибудь особо важным пишите в личку, а пока теме прикрывается

Ок, поправил и перевыложил макрос

Тогда уж на событие открытия документа повесить. Вот макрос, чтобы не ковыряться.

Электроника - что-то из Evropa, Europe, EuroStile

KorinnaC

вон даже у нас чего-то лежит https://rudtp.ru/resources/corel-macros-transform-each-v-2.2131/ правда, без выбора типа объектов

Думал Вы уже умеете обращаться с макросами. Sub rot() ActiveDocument.BeginCommandGroup "Rotate text 180" For Each s In ActivePage.Shapes.FindShapes(, cdrTextShape): s.Rotate 180: Next ActiveDocument.EndCommandGroup End Sub А ещё лучше поискать готовые макросы типа "Transform Each"...

For Each s In ActivePage.Shapes.FindShapes(, cdrTextShape): s.Rotate 180: Next

Давно не разглядывал плагины с подобным функционалом. В моем случае Image Info 1.42 - Все о Total Commander 2005 года, но есть кучи аналогов

Привинтить на Total Commander любой контентный плагин показывающий разрядность и производить с ним поиск. Или настроить с ним отображение колонок.

"тИснение", "тИснить", "оттИск", "тИски", не от слова "тесно"

Это больше чем два футбольных поля!

Опен тайп в корел постепенно внедряли, от версии к версии умения корела растут.

хотел предложить вам добавить в изначальный код Dim c As Shape Set c = sr.Combine c.Curve.SubPaths(1).StartNode.ConnectWith c.Curve.SubPaths(2).EndNode c.Curve.Closed = True но, раз справились сами, то и нормально

Допустим, у меня разрыв между точками #2 и #3 в кривой и я хочу соединить из отрезком: Sub ConnectNodes() ActiveShape.Curve.Nodes(2).ConnectWith ActiveShape.Curve.Nodes(3) End Sub В Вашем случае подставьте нужные вам точки.

Можно накрыть памятник куском однотонной материи и попытаться "проявить" надпись углём, угольной пылью, если ткань светлая или мелом если тёмная. Как в детстве монетки тыльной стороной карандаша на листике делали.

В режиме редактирования кривых выделяем углы развертки, жмём кнопку разрыва кривой. Жмём Ctrl+K и разбиваем развёртку на отдельные кривые. Между верхней и нижней строим бленд из одного объекта. Если сразу правильно не вышло, меняем направление одной из кривых. Опять Ctrl+K, чтобы разбить бленд...

С оболочкой проблема воспроизвелась, но я для своих конических разверток пользуюсь альтернативным вариантом. Поделюсь уж с "конкурентом" :) Создаем блендом среднюю линию развёртки. Делаем из трансформируемого объекта кисть и применяем к этой линии. Устанавливаем её ширину равной высоте...