The Organization Chart diagram is controlled through a Visio add-on. These
do not expose their functionality to automation. However, the setting you
want is actually stored in the shape itself. Change the User.ShapeType cell
to a different value. Something like the code below:
Shape.CellsU("User.ShapeType").ResultIU = 1
--
Mark Nelson
Office Graphics - Visio
Microsoft Corporation
This posting is provided "AS IS" with no warranties, and confers no rights.