View Single Post
  #6  
Old 15-03-2012, 21:27
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,778
Blog Entries: 11
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Powerclip and Lens

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.
Code:
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
Reply With Quote