I'm wondering if there is a way to arrange all objects from shortest to longest without having to do it manually? Maybe a Macro? (Which I am a beginner at.) I work with names a lot, sometimes hundreds at a time, and I need to arrange them Like this. Doing that takes a lot of time and it seems like there is a better way. Does anyone know of anything I could do? Attached is a picture of what I'm trying to achieve. Thanks!
You could use something like this to get the objects in the correct order, top-to-bottom:
Dim sr As ShapeRange
Dim lngCounter As Long
Set sr = ActiveSelectionRange
If sr.Count > 1 Then
sr(1).TopY = sr.TopY
For lngCounter = 2 To sr.Count
sr(lngCounter).TopY = sr(lngCounter - 1).BottomY
MsgBox "Must have two or more objects selected.", vbInformation
After doing that, you could move the top or bottom objects up or down, then use regular tools in Align and Distribute to distribute the objects as you wish.
Oh Wow! Thank you so much! I actually didn't expect an answer that fast lol. This is exactly what I was looking for. This is going to save me so much time in the future too. My Co-worker could benefit from this as well, So I added the Macro for her too.