Try this. I import SVG geo map data often and encounter this issue frequently. Been working fine for me thus far.
Sub SVG_Cleanup()If ActiveShape Is Nothing Then Exit Sub
ActiveDocument.BeginCommandGroup "Remove SVG data"Del_SVG ActiveSelectionRange.Shapes MsgBox "SVG Data deleted"ActiveDocument.EndCommandGroupEnd SubFunction Del_SVG(sa As Shapes)Dim s As ShapeFor Each s In sa If s.Type = cdrGroupShape Then Del_SVG s.Shapes Else s.Locked = False If s.Type = cdrNoShape Then s.Delete End If End IfNext sEnd Function
Good job with recursion