Revert to Objects Automatically

[bprice]

Hey Everyone,
Quick question... does anyone know of a way to automatically "revert to objects" when importing symbols?

Thanks,
Brock

[shelbym]

A little CQL will do the trick to find the symbols, this will revert all symbols on your page. You may want to modify to the selection after the import.

Sub RevertSymbols()
    Dim s As Shape
    Dim sr As ShapeRange
    
    Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'symbol'")
    
    For Each s In sr.Shapes
        s.Symbol.RevertToShapes
    Next s
End Sub

-Shelby