Thanks for your help! I have found a solution.
Sub Test()
OrgChart_ChangePositionType 1, 2
End Sub
Sub OrgChart_ChangePositionType(intShapeNumber As Integer, intPositionType As Integer)
' Accesses User-defined Cells for the shape
' Org Chart Shapes Position Types:
' Executive = 0
' Manager...
Thanks for respoding so quickly! I have been already looked at the suggestions you have made before posting this question. There does not seem to be any property to change this that I can find. I even tried the macro recorder and changing the shape manually. It does not record anything. Any...
Hello,
I have generated an organization chart in Visio 2003 using the wizard with an Excel sheet. I am trying to change all the position types to "Position" so that all the shapes look identical. Can this be done through VBA coding?
Thanks
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.