ВОПРОС / ОТВЕТ ДЛЯ НАЧИНАЮЩИХ

dastin, Макрос берёт размеры непонятно откуда. На странице фото имеет размеры 1329х1193, а сохранённое - 753х676. Можно ли подшаманить макрос чтобы он брал истинные размеры ?

На странице фото имеет размеры 1329х1193, а сохранённое - 753х676

в настройках стоит 400 дпи
вот пример - создан растр - 1182*1182

он экспортирован в растр 1.jpg 1576*1576

перенастроил на 300 дпи
он экспортирован в растр 1.jpg 1182*1182

вывод - все работает - картинка ваша не подвергалась трансформации?

dastin, Я её на самой странице поменьше делал. Но не в этом суть - получается что размер картинки зависит от разрешения ?

И ещё - несколько страниц макрос отработал. Но потом стал выдавать, что в приложении.

это означает что на каком-то объекте он споткнулся ... он ведь ВСЕ объекты пытается превратить в растр

dastin, он спотыкается на многих файлах. Возможно ли как-то по простому отловить блоху - на чём именно спотыкается.

dastin, оказывается макрос запинается на ОЧЕНЬ малых объектах - на типа точках или почти нулевых линиях (или кривых), guidelines. Ещё и проверю файлы свои заодно )

Добрый день! Недавно только начал работу с корелом и возник такой вопрос. Необходимо сделать иконку в цвете и ее же в черно белом варианте (черно белый вариант в последствии будет использоваться при создании стикеров).если с цветным вариантом все понятно, о с черно-белым... Для этого все элементы, входящие в иконку нужно соединить, но при соединении порой все пересекается и ..вообщем не получается.Каким образом можно быстро цветную иконку сделать черно белой и какие инструменты при этом применяются?Подскажите, пожалуйста!!!Спасибо.

NemoSUN,
автор макроса при написании позаботился о том, чтобы обрабатывать только растр
Сделайте следующее - штатным образом выберите макрос запуска - НО! на последнем этапе нажмите кнопку EDIT - попадете в редактор с открытым текстои макроса - удалите в двух местах одиночную кавычку и сохраните макрос
теперь у вас будет обрабатываться ТОЛЬКО РАСТР ...
при желании можете также изменить разрешение с 400 до нужного
и изменить путь сохранения выдранных джипегов вместо c:\outputfiles\

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

Можно так:

Sub exportImagesFromCDR()
  Dim d As Document, p As Page, l As Layer, s As Shape, b As Bitmap
  Dim FileName$, FilePath$, Counter&, ef As ExportFilter
  
  On Error GoTo ProcessingEnd
  Set d = ActiveDocument
  FilePath = IIf(Len(d.FilePath), d.FilePath, "%temp%\")

  Counter = 1
  For Each p In d.Pages
    For Each l In p.Layers
      For Each s In l.Shapes
        If s.Type = cdrBitmapShape Then
          FileName = IIf(Len(s.Name), s.Name, "Image") & "_" & Counter
          Set b = s.Bitmap
          On Error Resume Next
          Set ef = b.SaveAs(FilePath & FileName & ".jpg", cdrJPEG, cdrCompressionJPEG)
          If Err.Number = 0 Then
            ef.Finish
            Counter = Counter + 1
            If Counter = 2 Then Shell "explorer /select," + Chr(34) + FilePath & FileName & ".jpg" + Chr(34), vbMaximizedFocus
          End If
        End If
      Next
    Next
  Next

ProcessingEnd:
End Sub

Макрос обработает все страницы в один проход. Не обрабатывает группы и контейнеры... Сохраняет размеры и разрешение растров.

dastin, спасибо ) А что означают другие закоменированные строки ? Что-то связанное с центрированием или сохранение растра с определённой позиции листа?