Calling a Visio function from an Excel macro

[opeth49]

Hi,
I need to create a macro in Excel that would open a Visio drawing and run a function in this drawing, with parameters.
I believe this is fairly easy but it's something I've never done before. Any help would be appreciated.

 

[TonyJollans]

Hi opeth49,

I've not done this before and I am running Visio 5 (which has VBA but is pre-Microsoft) and this works for me - with a reference to the Visio Type Library set.

[blue]Dim v as Visio.Application
Dim vdoc as Visio.Document
Set v = CreateObject("Visio.Application")
Set vdoc = v.Documents.Open("[i]mypath\mydrawing.vsd[/i]")
vdoc.ExecuteLine "MyVisioProc myparameter"
vdoc.Close
v.Quit
Set vdoc = Nothing
Set v = nothing[/blue]

where MyVisioProc is in a module in mydrawing.

The ExecuteLine runs a VBA statement as though it were entered in the (Visio) Immediate window.

It is possibly different with later releases of Visio - which I believe come with VBA 6 as standard.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at [url=http://www.vbaexpress.

 

[opeth49]

Nice this works perfectly! Thanks Tony!