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