Экспорт изображений из Corel Draw

Set expflt = ActiveDocument.ExportBitmap(fPathName & ".tif", cdrTIFF, cdrAllPages, cdrRGBColorImage _
                            , 4960, 7015, 600, 600, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionLZW)

Private Sub RoundAllFile()
    ' обработка всего файла
    Dim lr As CorelDRAW.Layer
    Dim pg As CorelDRAW.Page
    
    For Each pg In ActiveDocument.Pages
        pg.Activate
        For Each lr In pg.Layers
            If CheckLayerProcessing(lr) Then
                If lr.Shapes.Count > 0 Then Call CheckShapes(lr.Shapes)
            End If
        Next lr
    Next pg
    
    Set lr = Nothing
    Set pg = Nothing
End Sub
 
 
Private Function CheckShapes(shps As CorelDRAW.Shapes) As Boolean
    Dim shp As CorelDRAW.Shape
    Dim pwc As CorelDRAW.PowerClip
    
    
    On Error Resume Next
     
    For Each shp In shps
                 Select Case shp.Type
                Case Is = cdrShapeType.cdrNoShape   ' пропускаем
                Case Is = cdrShapeType.cdrGroupShape
                    CheckShapes = CheckShapes(shp.Shapes)
                    
                Case Is = cdrShapeType.cdrBitmapShape
                    ' здесь обрабатываем найденный растровый объект
                
                End Select
                
                Set pwc = shp.PowerClip
                
                If Not pwc Is Nothing Then
                    ' входим в режим редактирования содержимого PowerClip-а
                    pwc.EnterEditMode
                    
                    ' опускаем с функцию содержимое PowerClip-а
                    CheckShapes = CheckShapes(ActiveLayer.Shapes)
                    
                    ' выходим из режима редактирования содержимого PowerClip-а
                    pwc.LeaveEditMode
                    
                    Set pwc = Nothing
                End If
 
    Next shp
    
    If Not shp Is Nothing Then Set shp = Nothing
End Function