[CDR 2017-2021] Все изображения в CMYK 300dpi

[mnemonix]

Есть макрос, который переводит все изображения в CMYK 300 dpi, ищет и в группах и в powerclip.
Добавил в него обход всех страниц, но он по-прежнему работает только с текущей. Что я сделал не так?

Option Explicit
Sub Convert_All_Bitmaps_to_CMYK()
    Dim i As Integer
    Dim allPages As Pages
    Dim tempPage As Page
    Dim s As Shape, sp As Shape
    Dim pwc As PowerClip
    Dim ChangeCountPowerClip As Integer
    Dim ChangeCount As Integer

    ChangeCountPowerClip = 0
    ChangeCount = 0

Set allPages = ActiveDocument.Pages
    For i = 1 To allPages.Count
Set tempPage = allPages.Item(i)
    For Each s In ActiveDocument.ActivePage.FindShapes
        Set pwc = Nothing
        Set pwc = s.PowerClip
        If Not pwc Is Nothing Then
            For Each sp In pwc.Shapes.FindShapes
                ChangeCountPowerClip = ChangeCountPowerClip + processBitmap(sp)
            Next sp
        End If
    ChangeCount = processBitmap(s) + ChangeCount
    Next s
    Next i
End Sub
'-------------------------------------------------------------   
Private Function processBitmap(s As Shape) As Integer
    processBitmap = 0
    If s.Type = cdrBitmapShape Then
        s.Bitmap.Resample , , True, 300, 300
        If s.Bitmap.Mode <> cdrCMYKColorImage Then s.Bitmap.ConvertTo cdrCMYKColorImage
        processBitmap = 1
    End If
End Function

 

[_MBK_]

Где добавили? У вас ActivePage так и стоит

 

[mnemonix]

Вот тут я маху дал))
For Each s In TempPage.FindShapes

 

[dastin]

Что я сделал не так?

можно было ничего не делать ...
а просто вызвать из уже существующих wx_Tools
пункт

• wx.BitmapsDownsample - resamples bitmaps if its dpi is larger than specified by 20%. Asks dpi # and processes selected / whole doc, including powerclips. Shows per page statistics

 

[mnemonix]

из уже существующих wx_Tools

Ну или так, хочется сделать макрос с настраиваемыми параметрами.

 

[dastin]

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

на старте - выводится окно - куда вбивается нужное значение DPI

 

[mnemonix]

нужное значение DPI

Мой пока просто без лишних телодвижений делает предустановленное разрешение.

Ещё есть вот такой прекрасный макрос, надо посмотреть и, по-возможности, допилить многостраничность и прочие powerclip`s

 

[dastin]

Ещё есть вот такой

... и такой

... и ещё один весьма неплохой
... и наверняка ещё несколько подобных