Is there a macro that would seek out all symbols in a document and revert them all to objects? I believe the symbols are really bogging down my file and there are too many at this point to find them. Thanks.
Sub RevertSymbolsToObjects()
Dim sh As ShapeRange, s As Shape Set sh = ActivePage.Shapes.FindShapes(Type:=cdrSymbolShape)For Each s In sh s.Symbol.RevertToShapesNext sEnd Sub