Reading out page properties

[Tim Bücker]

I am trying to read out the page properties from all pages in a visio file but unfortunately didn´t succeed! Has someone done it
before?

The problem is perhaps that I want to read out custom properties that are included like this:
1) Show the window with the custom properties: View - Custom Properties Window
2) Right click in that window and "Define Properties"
3) Add a new custom property

I hope that this is possible at all.

A big thanks to everyone who can help me out!
Greetings,
Tim.

 

[Al Edlund]

try something like this (properties for a page are in the page sheet).

dim objDoc as visio.document
dim objPage as visio.page
dim objShape as visio.shape

set objDoc = activedocument
set objPage = objDoc.pages(1) ' or whatever page you want
set objShape = objPage.PageSheet

if objShape.cellexists("prop.whatever") then
msgbox "I found a custom property on the page"
end if

al

I am trying to read out the page properties from all pages in a visio file

but unfortunately didn´t succeed! Has someone done it

 

[Tim Bücker]

try something like this (properties for a page are in the page sheet).

Thanks a lot! That is exactly what I need!
Greetings,
Tim.