'MS VISIO, how do you resize a shape and maintain it's "inner proportions" (i.e. without garbling the shape)

Hopefully there is an easy answer that I can't find right now..

Problem:

Let's look at Arrow Shapes --> Quad Arrow

This shape has several controls that let you tweak it's internal proportions. enter image description here

But if you try to re-size the whole shape.. those internal proportions just go all over the place:

enter image description here

That's not the desired outcome! No combination of SHIFT ALT CTRL seems to prevent that.

Anyone know how to solve this issue?

visio


Solution 1:[1]

Anyone know how to solve this issue?

It's not a bug it's a feature :) ©

You can change this shape's shapesheet, where you change rows in Geometry section from absolute to relative values (from MoveTo/LineTo to RelMoveTo/RelLineTo).
After this you must delete Controls section.

You can use this simple macro for do all these steps at a moment.

Sub QuadArrowFix()
Dim sh As Shape ' active shape
Dim Se As Section ' geometry section
Set sh = ActiveWindow.Selection.PrimaryItem ' 1st selected shape
Set Se = sh.Section(visSectionFirstComponent) ' definegeometry section
sh.RowType(visSectionFirstComponent, 1) = visTagRelMoveTo ' change to RelMoveTo
For i = 2 To Se.Count - 1
sh.RowType(visSectionFirstComponent, i) = visTagRelLineTo ' change to RelLineTo
Next
sh.DeleteSection visSectionControls ' delete ControlsPts section
set sh = Nothing
End Sub

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source
Solution 1 Surrogate

Related Questions