Organization Chart Wizard

[jk]

Hi guru

Are we able to customize Visio.Application.Addons.Item("OrgCWiz")
For statement Visio.Application.Addons.Item("OrgC").Run ("/doc=" & Index() & " /cmd=DocCreated"
What other parameters can we use other than "/doc=" & " /cmd="

Thanks in advanc
jk

 

[jk]

I have to plot a org chart based on some specific requirement from SAP system.
Ie; Display 'ee_name', 'designation', 'department' etc in each box. The existing 'Org chart wizard' is limited to 2 display fields only. I have the following piece of Visio Macro codes to start with but I keep having "An unexpected error occured
Any comment is very much appreciated

'ORG CHART WIZ COMMAND
strcommand = "/FILENAME=" & TxtFileName
& " /NAME-FIELD=" & NameField
& " /MANAGER-FIELD=" & ManagerField
& " /UNIQUEID-FIELD=" & UniqueField
& " /SHAPE-FIELD=" & ShapeField
& " /DISPLAY-FIELDS=" & DisplayFields
& " /HYPERLINK-ACCROSS-PAGES "
& " /CUSTOM-PROPERTY-FIELDS=" & CustomFields

'START THE ORG CHART WI
Set appvisio = Visio.Applicatio
Set visaddon = appvisio.Addons.Item("OrgCWiz"
visaddon.Run ("/S-INIT"
iMaxArgstringLength = 10
strCommandLeft = strcomman
While (Len(strCommandLeft) > 0
strCommandPart = Left(strCommandLeft, iMaxArgstringLength
strCommandLeft = Mid(strCommanfLeft, Len(strCommandPart) + 1
visaddon.Run ("/S-ARGSTR " + strCommandPart
Wen

visaddon.Run ("/S-RUN")