dialog box

[TKW]

I am trying to insert in my Macro a dialog box that will prompt my user to
choose a file (within a given directory).

Does anyone have a solution for me, I have found 794 dialog boxes in the VBA
help files.

Which one should I be using?

 

[Al Edlund]

you might try something like this. I apologize that I can't remember if I
got it from Graham Wideman's or David Edson's book.
Al
Public Sub subVisioOpenViaDialogue()

Dim docObj As Visio.Document

Dim visApp As Visio.Application 'Visio Application Object

visApp = GetObject(, "Visio.Application")

visApp.Application.DoCmd(visCmdFileOpen)

docObj = visApp.ActiveDocument

End Sub