VBA macro to shrink visio diag object by 25%

[Tom H.]

I have a Visio diagram that a vendor produced; it takes up
30 pages (45 meg vsd file). The vendor used 18 size fonts
with 2x3 inch process boxes (very cute!!). They created it
to go on a monster plotter for a (4tfx8ft) drawing. The
vendor is long gone. This effort is to help me with
another project. I plan to break the drawing up to 3-4
pages sections, by business function.

I am trying to create a macro in VBA to shrink the Visio
flowchart diag objects by 25%, but "visio.shape.AreaIU" is
read only. Also, I need to shrink the Visio diag Object
text (font 18, down to 10). I have also thought about of
playing with the shape diag formulas.


Any suggestions??

 

[Mark Nelson [MS]]

There is a fairly simple way to accomplish this in the UI that will get you
most or all the way to your goal. Try the method below and see whether it
helps you.

1) Select all shapes on the page (Ctrl-A)
2) Group the shapes (Ctrl-G or Ctrl-Shift-G)
3) Resize the group down to the desired size
4) Ungroup the shapes (Ctrl-U or Ctrl-Shift-U)
5) Right click in the toolbar area and choose the Format Text toolbar
6) Click on the Decrease Font Size button until you reach the desired text
size

Note that in Visio 2002 or later the grouping shortcuts changed to include
the Shift key.

 

[John Marshall, MVP]

To readjust the shape size, change the Shapes Hieght and Width.

For the text you may be able to select all the shapes and then change the
text size using the menu.

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm

 

[John Marshall, MVP]

I like that.

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm

 

[Guest]

Thanks Mark, it works great

Tom H. - (e-mail address removed)