how to convert all lenses in document to no lens

[gorgo]

how can we convert all lenses in document back to a plain shape..no lens effect?

[shelbym]

Here you go:

Sub ClearLens()
    ActiveShape.ClearEffect cdrLens
End Sub

-Shelby

[gorgo2]

Originally Posted by shelbym

Here you go:

Sub ClearLens()
    ActiveShape.ClearEffect cdrLens
End Sub

-Shelby

Okay, making this search and find all lens effects in all pages and removing effect. However, this is not quite tuned correctly. Any help? Thanks again Shelby!

'    Dim s As Shape
Dim sr As New ShapeRange
Dim p As Page, i As Integer
    Dim OrigSelection As ShapeRange
    For i = 1 To ActiveDocument.Pages.count
            ActiveDocument.Pages(i).Activate
    Set sr = ActivePage.Shapes.FindShapes(query:="@type='cdrLens'")
   For Each s In sr
        s.Effect.Clear
   Next s
    Next i