Found this bit of code donkey years ago:
Sub FindMeSizeMyHeight() ' Just size the Height Dim SR As ShapeRange Dim s As Shape ActiveDocument.ReferencePoint = cdrCenter 'So your hole doesn't change position Set SR = ActiveSelection.Shapes.FindShapes() For Each s In SR s.SetSize 0, 2 ' Width , Height Next sEnd Sub
I have a series of objects that I would like to change only the Height and keep their Widths( and vice~versa for the Widths only & not height)
The above does both
Thanks for lookin!
@Myron this will do it for now. I'll set a SCkey for specific sizes, cool.
@Eskimo I will dig into using that one as well for the extras involved.
Thank you both!