Getting X and Y in VBA

[Chuck]

How do I get the (x,y) of a shape in VBA?

I can get the coordinates when exporting to a table as the fields PinX and
PinY - but what are the VBA properties on the shape object?

 

[John Marshall, MVP]

Take a look at the "Location Table" example at
http://www.mvps.org/visio/VBA.htm

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm

 

[Chuck]

Very useful!

I have trouble opening a visio file - when I run the following code from
excel VBA:
' Open the file
PathFileName = PathName & CurrFileName
Set docObj = Documents.Open(PathFileName)

I have made a reference to the visio objects and I have defined docObj as a
Visio.document, but it doesn't work?

The code works when used within Visio - but I want to run it from Excel....

Any suggestions?

 

[John Marshall, MVP]

"Documents" exist in both the Excel and the Visio model, try qualifying by
using

Set docObj = Visio.Documents.Open(PathFileName)

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm

 

[Chuck]

John - just tried it. Doesn't work.

In the meantime I've decided to use VBA in Access - and here it doesn't work
either...

Chuck

 

[Mark Nelson [MS]]

If you are running code to open a Visio document in VBA in another app, you
likely need to supply a Visio Application object. This object is taken for
granted in Visio VBA, but in another app this must be supplied. Usually you
get an application object with a CreateObject or GetObject method.

Once you have a Visio Application object, you can use it to open a document:

Set docObj = visApplication.Documents.Open(PathFileName)

 

[John Marshall, MVP]

Thanks Mark, I shouldn't answer questions before 7am without starting my
brain.

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm