how can we convert all lenses in document to cmyk bitmap?

how can we convert all lenses in document to cmyk bitmap? thanx for any help..

[Alex]

Here you go...

Sub ConvertLenses()
    Dim s As Shape
    For Each s In ActivePage.Shapes
        ' Check to see if the object has a lens effect
        If Not s.Effects.LensEffect Is Nothing Then
            ' Convert it to a 72 dpi CMYK bitmap
            s.ConvertToBitmapEx cdrCMYKColorImage, False, False, 72, cdrNormalAntiAliasing, True
        End If
    Next s
End Sub

definitly i knew that Alex will solve this problem... thanx Alex, u r the Best....