Yeah, you’d have to write some recursive code. It’s not too hard as every Visio shape has a shapes collection, so you can get at sub-shapes via shp.Shapes.

There’s a bit of an inconsistency between code and the UI. If, for example you select a group in a drawing window and apply a fill color, that color will apply all the way down to the deepest sub-shape.

If you do the same in code, you only set the group’s FillForegnd cell. Often, the group has no geometry at all, so you won’t see anything. The sub-shapes remain untouched. This can sometimes work in your favor, but other times force you to write recursive routines

I’ve written similar code that uses recursion. My question is would recursion be needed here if my shapes are more than one level deep, or does Visio handle this differently than I expect?

Thanks

It looks like you intended to include character scaling as well (assuming the fs variable is font size). Can you provide the code to do that?

Thanks for the correction.

These shapes are likely to have their aspect-ratios maintained, so keying the LineWeight off of the height is just fine.

But for shapes that could be resized in either dimension, you are right, the width needs to be taken into account.

Not sure what you mean by “far easier in the ShapeSheet”. This technique is 100% ShapeSheet, but without the numerical reduction that you’ve suggested. The VBA code simply sets the smarts automatically in all the sub-shapes, so that you don’t have to do it by hand!

And you’re right, a top-level “scale-factor” could be implemented, with a reduction of the fixed numbers. But for instructional purposes, I’ve left some of the simplifications out. I also didn’t want to add user-cells to the shapes, because that unnecessarily complicates the code for this simple example.

Cheers,

- Chris

This is similar to how text can be autoscaled

Also, even with your approach, either aspect ratio must be held or some sorted combination of
shapeheight and shapewidth folded into user.linescaler. (aka make a user.linescalerx and user.linescalery
and user.linescaler = (user.linescalerx+user.linescalery)/2 kind of thing)