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

По просьбе из темы Макрос от Санчо адаптированный для версий Х7+

я тоже - в сях - нихт ферштеен ... хотя пытался - визуал студио ставил, но так ничем и кончилось

Может это не то, что ты подумал, а ... коррида например ... или фанаты Краснодара ... 'hmmm'

чуть поправлю ... Sub RASTER() Dim sr As ShapeRange Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'bitmap'") If sr.Count > 0 Then sr.CreateSelection ' экспорт в джипег Else ' экспорт в свг End If End Sub

или так Sub RASTER() ActivePage.Shapes.FindShapes(Query:="@type = 'bitmap'").CreateSelection End Sub это будет искать в группах ... но ещё остаются поверклипы

Furore

разве другой РИП (отличный от вашего) кое-что может добавить ... но немного

аппарат же у вас под рукой - не стесняйтесь - попробуйте лоступные варианты с одним и тем же заданием решать все равно вам - мягкость дело тонкое :)

чувствую что самовар нам скоро начистят ... но опасения стоит развеять всё же ... ничего там военного ИМХО ...

лог установки Create folder: C:\Documents and Settings\***\Start Menu\Programs\YinkaMacs Create shortcut: C:\Documents and Settings\***\Start Menu\Programs\YinkaMacs\Uninstall YinkaMacs.lnk Output folder: C:\Program Files\YinkaMacs Created uninstaller: C:\Program Files\YinkaMacs\Uninstall...

подозреваю что для вынимания превьюшек в модуле Recent Files

ну я установил на Х5 . правда нештатно - выудил из после юниэкстрактора нужный гмс и руками прикопал в нужной лунке небось обновлялку

из Xenial Xerus вестимо ... живет в параллельном мире разделе размеры ... да - гуляют

просто ссылку дал - в ресурсах его нет нод от него отвернулся потом крышечку я "открутил" юниэкстрактором и снова нод ничего интересного не нашел внутри каталоги для версий от 11 до 2020(sic!) с gms (992 786 байт), bmp и стопочкой архиваторов да ... мопед с КорелКомьюнити парень скромно...

Ещё один "зеркальный шкаф на колёсиках" ... комментарии автора настроживают - типа Thanks to Alex Vakulenko and wOxxOm похоже (сам ещё не проверял) автор "сочинил" сборку из того что нашлось "фишка" в том, что в описании добавлена фраза Works with CorelDraw X3, X4, X5, X6, X7, X8, 2017, 2018...

что значит Чьей-то!? Высочайше утверждено!

так и было задумано автором - сохранять размер и угол поворота исходного объекта ... ниже текст макроса с изменениями - в центр каждой "точки будет поставлен ваш объект подмены - НО!!! ВСЕ объекты будут одинаковы вместо BoundingBox - только Position ... Sub scatter() Dim sh As Shape, sr As...

это вот в каких "попугаях" ... не в мм же?

вроде "жевали" не так давно про точность ... ТЫЦ

м.б. - эллипс (круг) имелся в виду - небольшого размера - я так изначально понял но ... настаивать не буду - :) - пусть ТС пояснит