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
oho it is not clearning up without selection of svg. with selection only it is cleaning. please kindly update
Give this a try.
Sub Delete_SVGData()Dim sr As ShapeRangeSet sr = ActivePage.Shapes.FindShapes(Query:="@com.type=0")sr.DeleteEnd Sub
working, but first i tried without having any selection i hitted the svgdelete script, but nothing happened. i observed this in object docker. later i tried this. selected the svg element, and seen locked objects in the object docker... now i launched, nothing happened. then i hit unlock all command and used the script then it is removed. I WANT THEM TO REMOVE AT ONCE WITHOUT ANY SELECTION OR HITTING UNLOCK OR ETC.
Sub Delete_SVGData()Dim sr As ShapeRangeSet sr = ActivePage.Shapes.FindShapes(Query:="@com.Type=0")sr.Unlocksr.DeleteEnd Sub
Perfect sir. Just Love you for your support . Also please help in this regard sir. is this possible through scripting.
Note: Using ALL Caps on forums is equivalent to yelling! Please don't yell at me or anyone on this forum. Not proper forum etiquette There are better ways like setting the text to bold if you want to focus attention.
Not sure what you mean 'through scripting'.
oh, sorry sir. i do not know sir truly in which way it is possible. despite of hitting the left button on command icon many times, i want to hold the left button on command icon, so that it reacts very smoothly, as per the desginated function. despite of hitting click by click is something like jumping attitude. for instance i assigned a 5% percement upward movement script. then command icon is in the toolbar. it allows to move per click, click by click only it moves like a jumping one. if the same command is keyboard shorcut assigned, then holding that key firmly, it moves very smoothly. hope you understand sir. my english is not that much good. please excuse for that
Sorry. Cant help with that.