[CDR 2017-2021] Наличие растровых объектов

[izrukvruki]

Подскажите, как сделать следующее:
- если в макете есть растровые картинки - то экспорт в JPG,
- если нет - то в SVG

Суть в следующем: делаю баннеры для сайта, при экспорте в svg макетов содержащие растровые картинки (логотипы присланные клиентами в jpg) - corel вылетает. Где чисто вектор - все хорошо. Макеты очень простые: фон, логотип, слоган

 

[_MBK_]

Так ответ у вас на скриншоте - при экспорте svg он сразу предупреждает о наличии растровых объектов

 

[izrukvruki]

Так пусть бы встраивает, тем более я указал чтоб встраивал... Но у меня программа вылетает...
И вопрос то был в другом...

 

[_MBK_]

Но у меня программа вылетает...

Все равно не пойму смысла хотелки. Вы пробуете экспортить в svg, смотрите если растровые есть - экспортируете в jpg
Или вы хотите намакросовать волшубную кнопку "Экспорт в svg или jpg?"

 

[izrukvruki]

Именно

 

[_MBK_]

Примерно как то так

if activeDocument.SelectableShapes.FindShapes(,cdrBitmapShape).Count>0 then
   Здесь экспортировать как jpg
else   
   А здесь экспортировать как svg
end if

 

[dastin]

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

 

[_MBK_]

В символах тоже скорее всего не будет

 

[dastin]

чуть поправлю ...
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

 

[izrukvruki]

Там не будет контейнеров и символов.
Ваш работает, спасибо!

 

[izrukvruki]

Я попробовал в 2019 версии экспортировать с растром в SVG - все нормально, 2017 - вылетает.
Можете кто попробовать мой макет в 2017 экпортировать в svg - интересно вылетит ли прога.

 

[dastin]

Можете кто попробовать мой макет

полный код макроса не помешал бы ... может "наваяли" что?

 

[izrukvruki]

Я имею в виду через меню Экспорта, штатными средствами. Без скрипта

 

[dastin]

мой макет в 2017 экпортировать в svg - интересно вылетит ли прога.

вин 8.1 и 2017 разрядность х86
как с подлинкованным

так и с внедренным растром

ОК
но предупреждение выдает
есть растр
есть не РГБ