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!
For Each s In srs.SizeHeight = 2
and the other
s.SetWidth = 2