Powerclip/Bitmap Macro Question

As you want to edit PowerClip objects you should activate PowerClip editing mode

Sub RasterImageswPC()
Dim s As Shape, s2 As Shape, sr As ShapeRange, p As Page, pwc As PowerClip, sr2 As ShapeRange
For Each p In ActiveDocument.Pages
    Set sr = p.Shapes.FindShapes
    For Each s In sr
        If Not s.PowerClip Is Nothing Then
        Set pwc = s.PowerClip
        Set sr2 = pwc.Shapes.FindShapes(, cdrBitmapShape)
            pwc.EnterEditMode 'allowing PowerClip objects to have their contents edited.
            For Each s2 In sr2
               Set s2 = s2.ConvertToBitmapEx(cdrCMYKColorImage, False, False, 150, cdrNormalAntiAliasing, True, False, 95)
            Next s2
            pwc.LeaveEditMode 'preventing PowerClip objects from having their contents edited
        End If
    Next s
    Next p
End Sub

Best regards

Mek