is there any macro that can move object next to the previous object just like in the attached GIF ?
Yes, use it everyday. It's called ButtShapes.
can you please share with me.
I can't take credit for creating it. I believe I started with 1 code and then created different ones to make
butt left/right, up/ down, top/bottom then I made a custom arrow icon for each to add to my workspace
Sub Bottom() Dim s As Shape, sr As ShapeRange Dim y As Double ActiveDocument.ReferencePoint = cdrBottomMiddle Set sr = ActiveSelectionRange SendKeys "r" DoEvents Set s = sr(1) sr.Remove 1 y = s.PositionY ActiveDocument.ReferencePoint = cdrTopMiddle boostStart "Align Bottom" For Each s In sr s.PositionY = y Next s boostFinish True, TrueEnd Sub
What if i need to shift my label in cross positions?
As in diagonally?