How to Call Sub in Stencil from macro/sub in document

[razmichael]

Hi Everyone,

I'm fairly new at Visio coding and have run into a irritating problem that I hope I can find a solution for.  I have a database that contains data to be used in part to draw diagrams in Visio.  This is generally used in a dynamic manner - make a data change, produce the diagram to review, delete the diagram and try different data. 

Initially I wrote the code in the visio document/template.  I tied the running of the code to a macro with a shortcut key to allow for quick and easy access.  To ease deployment and upgrades, I moved the code to a stencil but could no longer run this from a short cut key.  I could use the tools menu and navigate through to the stencil macros to run but this is irritating over and over again.  I have tried numerous formats to try to call a sub in the stencil but no luck.  Adding the stencil to the references solves this issue but causes other problems with paths being wrong etc.  I have looked at programing to add the ref dynamically based on the current location of the opening document but this seems like much too much work to only get to use a short cut key.  I've found the details on using CallThis and other options but none fit this problem.

Any help would be greatly appreciated.

Michael

[Lars-Erik]

So you want a macro in the document to run a macro in one of you stencils?
You could try the following.

In this example the following code is in my test stencil called Stencil1 (You don't need this)

Code Select Expand


Public Sub RunMe()
    MsgBox ("test")
End Sub


Then the following code would go in your document (all of it):

Code Select Expand


Sub Run()
    Dim nSencil As Integer
    Dim i As Integer
       
    For i = 1 To Application.Documents.Count
        If Application.Documents(i).Name = "Stencil1" Then
        nStencil = i
        End If
    Next i
       
    Call Application.Documents(nStencil).RunMe
   
End Sub


Note that it looks for the stencil called "Stencil1" you should change this to the stencils name with your macro in it.
It also calls the macro RunMe. This should be changed to your macro in the stencil.

Hope this helps, and that its clear.

- Lars

[razmichael]

Thank you very much for the response - with a couple of modifications it solved the issue.  I added the .vss extension into the .Name = portion for the stencil name. 

Originally the sub I was trying to call in the stencil was contained in the module NewMacros and this was not being found (error 438 object does not support this property or method).  As all this sub did was open a form for user input I moved this to the ThisDocument of the stencil (The form would then run the main code in the NewMacros module when the user 'hit the button').

Out of interest, if there a way similar to your solution to call a sub in the module of the stencil?  I tried various forms of "Call Application.Documents(nStencil)...." but could not do a direct call to the module in the stencil.

Sub OpenForm()
' Keyboard Shortcut: Ctrl+l
'
Dim nStencil As Integer
Dim i As Integer
    For i = 1 To Application.Documents.Count
        If Application.Documents(i).Name = "PosterStencil.vss" Then
            nStencil = i
        End If
    Next i
Call Application.Documents(nStencil).OpenMainForm
End Sub

[Lars-Erik]

Something like this is what I suspected to work, but to my surprise it didnt.

Code Select Expand

Call Application.Documents(nStencil).Module.RunMe

A work around might be to run the macro in the module from the ThisDocument part, maybe someone else has an idea how to get this done.

-Lars

[JuneTheSecond]

It may be ExcuteLine.
ThisDocument.ExcuteLine("Module1.MyMacro")

[Lars-Erik]

Nice one June!

Code Select Expand

Call Application.Documents(nStencil).ExecuteLine("Module1.RunMe")

Does the trick.

-Lars

[razmichael]

Thanks very much to both of you.  I'm sure I would have eventually tripped over the right combination given a few more weeks of random attemps!  I will confess that I did take some satisfaction in Lar's post where you said you thought it should have worked!  That's what I have been saying for days!.  Again, thanks for the help.

[VisioBut]

Is it possible to apply a saved macro (on the hdd ) to a new visio drawing ?