VBA Change fields displayed on org chart shapes

[ronny_mattus]

Hi,

(solved)

Using Visio Standard 2013.

I know you can change what fields are displayed on shapes of an org chart by going to options and checkboxing which fields to show in Block 1. Is there a way to do this using vba and not do it for all shapes of the chart, but only ones I specify?

Edit:
I ended up just using:
vsoShape.Characters.Text = vsoShape.Characters.Text & "added field text"

Thanks,
Ronny