View Single Post
  #3  
Old 29-04-2007, 03:12
designhouse
Guest
 
Posts: n/a
Default Replacing bitmap color mode

make a subroutine & call it from main

I think it is more effective cause your code may not convert images in nested powerclips & my codes can

Code:
Private Sub DoReplaceOnShapes(ss As Shapes)

    Dim s As Shape
    For Each s In ss
        Select Case s.Type
            Case cdrBitmapShape
            If s.Bitmap.Mode = cdrRGBColorImage Or cdrDuotoneImage Or cdrLABImage Or cdrPalettedImage Or cdr16ColorsImage Or cdrBlackAndWhiteImage Then
            s.Bitmap.ConvertTo cdrCMYKColorImage
            End If
            End Select
        On Error Resume Next
        If Not s.PowerClip Is Nothing Then DoReplaceOnShapes s.PowerClip.Shapes
    Next s
End Sub
regards,
amit
Reply With Quote