How do I set the Width/Height of an Org Chart shape programaticall

[Dave K]

I have automated creation of my organization chart via vb script and an excel
spreadsheet.

Is there a setting I can apply in either the script or spreadsheet to
programmatically preconfigure Shape Height and Width?

 

[Chris Roth [MVP]]

Hi Dave,

Try this:

Dim visShp as Visio.Shape

'...set the shape somehow, for example:
Set visShp = Visio.ActiveWindow.Selection.Item(1)

visShp.CellsU("Width").ResultIU = 2.0 '...IU = internal units = inches
visShp.CellsU("Height).Result("mm") = 25.4 '...Result lets you specify
units

--
Hope this helps,

Chris Roth
Visio MVP

Free Visio shapes:
http://www.visguy.com/category/shapes
Visio programming info:
http://www.visguy.com/category/programming/
Other Visio resources:
http://www.visguy.com/visio-links/