View Single Post
  #7  
Old 19-03-2012, 08:52
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default Yeah

Thanks Shelby.

Thats great work!

This is code works with groups:

Quote:
Sub ConvertLensesWithTrans()
Dim s As Shape, ss As Shape, sr As ShapeRange
Set sr = ActivePage.Shapes.FindShapes()
For Each s In sr
On Error Resume Next
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,

~GrzJanik

PS. When pasting text in the quote my tabs is disappear, why?
Reply With Quote