VBA / Visio: Open SaveAs Dialog with VBA

Question

I want to open a save as dialog for the user via VBA. I found this method:

   Application.Dialogs(xlDialogSaveAs).Show ("c:\my_folder\")

from this previous question save as dialog excel code

Obviously, it does not work in Visio. What is the corresponding Argument for Visio? Cant seem to find a list of all possible options online.

Another possibility I found is

Application.GetSaveAsFilename

but that does not work in Visio either!

Thanks for any hints!

You should be able to find plenty of examples online with a simple Google search. 'se the SaveAs method to save a document for the first time. ThisDocument.SaveAs "path\filename.vsd" or Me.Application.ActiveDocument.SaveAs(docPath) or save as new path Me.Application.ActiveDocument.SaveAsEx(newDocPath — dbmitch
– dbmitch, Commented Jul 16, 2018 at 17:46
Thanks for the input! I cant test your code immediately but I think this lets me save the file to a given path. I want however, the User to be able to choose the file! Just as if one clicked the "Save as" button. Sorry if I wasnt clear above. — ksbawpn
– ksbawpn, Commented Jul 16, 2018 at 17:53
Not an answer as such, but you can search in the Object Browser (that little box with the shapes coming out from it on the VBA editor tool bar) for "SaveAs". — AJD
– AJD, Commented Jul 17, 2018 at 7:08
Ahh - okay - yes if you want to use the Win API method you can use Ken Getz's plug and play module from access.mvps.org/Access/api/api0001.htm and just call it likestrSaveFileName = ahtCommonFileOpenSave( OpenFile:=False, Filter:=strFilter, Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY) — dbmitch
– dbmitch, Commented Jul 18, 2018 at 3:11
Duplicate of: stackoverflow.com/questions/33762039/…. Voted to close. — Nikolay
– Nikolay, Commented Jul 22, 2018 at 8:04

Surrogate · Accepted Answer · 2018-07-17 05:35:04Z

2

MS Visio VBA object model haven't own build-in dialog box collection for save documents.
You can add MS Excel library in references of your VBA-project. Tools -> References Press button Browse and find MS Excel library Look also this list XlBuiltInDialog Enumeration (Excel)

edited Jul 17, 2018 at 5:35

answered Jul 17, 2018 at 5:13

Surrogate

1,7342 gold badges13 silver badges13 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA / Visio: Open SaveAs Dialog with VBA

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related