[shelbym]

Alright, I had a little time to look at this, give this a try. The only issue with this code is that it will not dig into groups.

Sub ConvertLensesWithTransTest()
    Dim s As Shape, ss As Shape
    
    For Each s In ActivePage.Shapes
        If Not s.PowerClip Is Nothing Then
            s.PowerClip.EnterEditMode
                For Each ss In s.PowerClip.Shapes
                    If Not ss.Effects.LensEffect Is Nothing Then
                        ss.ConvertToBitmapEx cdrCMYKColorImage, True, True, 300, cdrNormalAntiAliasing, True
                    End If
                Next ss
            s.PowerClip.LeaveEditMode
        Else
            If Not s.Effects.LensEffect Is Nothing Then
                s.ConvertToBitmapEx cdrCMYKColorImage, True, True, 300, cdrNormalAntiAliasing, True
            End If
        End If
    Next s
End Sub

Best of luck,

-Shelby