Drawing Scale

[Ray Batig]

Greetings,

When I set up a drawing page I set a scale. How do I read this value using
vba?

Thanks for you help!

 

[JuneTheSecond]

Use ResultStr property.
Debug.Print shp.Cells("Prop.Row_1").ResultStr("")
might return it as string.

 

[John Marshall, MVP]

ThePage!Drawingscale
ThePage!Pagescale

John... Visio MVP

Need stencils or ideas? http://visio.mvps.org/3rdparty.htm
Need VBA examples? http://visio.mvps.org/VBA.htm
Visio Wishlist http://visio.mvps.org/wish_list.htm

 

[JuneTheSecond]

I am sorry. I have lost a place to put my answer.

 

[Al Edlund]

pages and documents have associated 'shapes' to store their shapesheet data
within.

something like this

dim visPage as visio.page
dim visPageSheet as visio.page
dim visCell as visio.cell
set visPage = application.activepage
set visPageSheet = visPage.pagesheet
if visPagesheet.cellexists("pagescale",false) = true then
set visCell = vispagesheet.cells("pagescale")
' do something with the information
end if

 

[Ray Batig]

Thanks,

June, John and Al. This code really is helping me understand.