I would like to add some code to color my org chart base on the value in the Status field. I can do it manually using the Color By Values addon, but I would like to automate it.
Dim objapp As Visio.Application
Dim objaddon As Addon
Set objapp = Visio.Application
Set objaddon = objapp.Addons.Item("Color By Values") 'Refreshes database from Visio
objaddon.Run ("/color = Status") '****This is the part where I need the arguments****
Any help would be appreciated.