How to retrieve KPI data from BSM using Visio VBA

[Hei]

Does anyone know how to do this?

Please Help!!! Thx!!!

 

[Chris [Visio MVP]]

Hey Hei,

10 points for Best Title in a Long Time!

If there is data stored in the shape's custom properties, then you could use
the built-in Visio reports and skip VBA all together!

Otherwise, this will get you started in the right direction:

dim pg as visio.page
dim shp as visio.shape

for each shp in pg.shapes
debug.print shp.cells("Prop.Cost")
debug.print shp.cells("Prop.Name")
debug.print shp.cells("Prop.Hours")
next

You could programmatically dump the custom properties too, without having to
know them in advance.

Go to Window > Show ShapeSheet and look for the Custom Properties section.
This will give you an idea as to what ".cells( )" means.


--
Hope this helps,

Chris Roth
Visio MVP

Go Team USA!
http://www.wanderkind.com/usa

 

[Hei]

Hi Chris,

First of all, I would like to say thanks for your kindly help.

Perhaps I was misleading you somehow. What I would like to do is using VBA
function to access the BSM API and retrieve particular KPI's value. So that,
I can dynamically changing the Visio's object color as an indicator. As I'm
trying to use Visio to create a strategy map which link to a BSM scorecard.

So, do you have any idea how to use the BSM API in Visio??

Once again, Thank you very much.

Hei