Hello, beginner here. I'm looking for a modifier key combination that, when pressed, will force an ellipse back to be a circle. I know that I can go and set the width and height of the ellipse to be equal, but I want to streamline my work and do it with a keystroke if possible.
There is, as far as I know, no modifier key that can be used in this case, but you can try the Coordinates docker.Open the docker, select the ellipse, choose Circle (hidden under the Ellipse icon in the top row of icons in the docker), and click "Replace object".Works fine but is a bit tedious if you have many ellipses to correct.I'm pretty sure this could easily be done with a macro too, but I don't have the skills to write one.
Ronny Axelsson said:I'm pretty sure this could easily be done with a macro too, but I don't have the skills to write one.
Here are a couple of subs that set the size of each selected object based on the larger (or smaller) of the two dimensions:
Sub Width_Height_Same_As_Larger_Multi() Dim s As Shape ActiveDocument.BeginCommandGroup "W_H_Same_As_Larger_Multi" For Each s In ActiveSelectionRange If s.SizeWidth > s.SizeHeight Then s.SetSizeEx s.CenterX, s.CenterY, s.SizeWidth, s.SizeWidth Else If s.SizeHeight > s.SizeWidth Then s.SetSizeEx s.CenterX, s.CenterY, s.SizeHeight, s.SizeHeight End If End If Next s ActiveDocument.EndCommandGroup End Sub Sub Width_Height_Same_As_Smaller_Multi() Dim s As Shape ActiveDocument.BeginCommandGroup "W_H_Same_As_Smaller_Multi" For Each s In ActiveSelectionRange If s.SizeWidth < s.SizeHeight Then s.SetSizeEx s.CenterX, s.CenterY, s.SizeWidth, s.SizeWidth Else If s.SizeHeight < s.SizeWidth Then s.SetSizeEx s.CenterX, s.CenterY, s.SizeHeight, s.SizeHeight End If End If Next s ActiveDocument.EndCommandGroup End Sub