So I've got 2 pieces of code as follows:
Sub space_it_up_multi() Dim sr As ShapeRange Dim sr_counter As Long Const space_dist As Double = 1.5 Set sr = ActiveSelectionRange For sr_counter = sr.Count To 2 Step -1 sr(sr_counter - 1).BottomY = sr(sr_counter).TopY + space_dist Next sr_counterEnd Sub
____________________________________________________________________________
Sub space_it_right_multi() Dim sr As ShapeRange Dim sr_counter As Long Const space_dist As Double = 1.5 Set sr = ActiveSelectionRange For sr_counter = sr.Count To 2 Step -1 sr(sr_counter - 1).LeftX = sr(sr_counter).RightX + space_dist Next sr_counterEnd Sub
_____________________________________________________________________________
I want to code it for a userform (userform1) so that the value of "Const space_dist As Double = 1.5" for "space_it_right_multi" and "space_it_up_multi" is derrived from "Textbox1" and "Textbox2" then executed by "CommandButton1"
Any help is greatly appreciated!!!
That's really cognitive information to know about such a indomitable and concrete stuffs. I stolidly respect that effort and hope to keep the good work as same as always. Maybe a website to get premium stuff for free can be of great assistance to you. It was helpful to me.
Thank you for being so workaholic, it has server us the way we want. Indeed, grateful to you.