Access Visio Drawings stored in MS Access

[martin koenig]

Hi All

I have an MS-Access 2003 database where I have a table with a column which
contains Visio objects.

Those Visio objects will be used on an MS-Access report. The Visio drawings
are differnt in size (with and hight). Therefore each drawing needs to be
resized on the report before displayed.

My question is:
How Do I get with and height of a Visio drawing with the Visio Type Library
(11.0)?

Would anybody be able to fill the question marks below or even suggest as
smother and easier way to get to the dimensions of a Visio drawing?


Dim appVisio As Visio.Application
Set appVisio = CreateObject("visio.application")

' VBA Code to create a new Visio document
??

'VBA Code to paste the Visio drawing into the new Visio document
'Consider that I do have only an OLE-Object.
??

'Retrieve with and heigth of that drawing pasted into the Visio document
??




Thanks very much for any help
Martin

 

[JuneTheSecond]

I have studied how to make my code in this site,
http://msdn.microsoft.com/library/d...n-us/devref/html/DVS_01_Introduction__544.asp