Comments on: Run VBA Code When Documents Open

By: Visio Guy

Visio Guy — Fri, 03 Feb 2012 16:28:15 +0000

@Dave,

Phew!

By: Dave WIlson

Dave WIlson — Wed, 01 Feb 2012 23:18:16 +0000

Ok, I got it running.

By: Dave WIlson

Dave WIlson — Wed, 01 Feb 2012 21:45:07 +0000

How do I make it run? Put the code in and nothing happens.

Thanks.
Dave

By: Visio Guy

Visio Guy — Tue, 07 Dec 2010 21:41:18 +0000

Well, um, for those reading the comments, Bernardes’ code prints the name of every document that is open in Visio, along with the name of every page in every document.

Perhaps he didn’t quite understand what this article was about, but thanks anyway.

Say “Hi” to Walter, Bernardes!

By: bernardes

bernardes — Tue, 07 Dec 2010 18:29:03 +0000

Try this too:

Public Sub ShowNames()

‘Declare object variables as Visio object types.
Dim vsoPage As Visio.Page
Dim vsoDocument As Visio.Document
Dim vsoDocuments As Visio.Documents
Dim vsoPages As Visio.Pages

‘Iterate through all open documents.
Set vsoDocuments = Application.Documents
For Each vsoDocument In vsoDocuments

‘Print the drawing name in the Visual Basic Editor
‘Immediate window.
Debug.Print vsoDocument.FullName

‘Iterate through all pages in a drawing.
Set vsoPages = vsoDocument.Pages
For Each vsoPage In vsoPages

‘Print the page name in the Visual Basic Editor
‘Immediate window.
Debug.Print Tab(5); vsoPage.Name

End Sub

André Luiz Bernardes
https://sites.google.com/site/vbabernardes/blogs
A&A® – Work smart, not hard.
Blog Office VBA | Blog Excel | Blog Access

By: Visio Guy » Blog Archive » Smart LineWeight: Bigger Shape, Thicker Lines

Mon, 31 Mar 2008 16:27:33 +0000

[...] to run VBA code in Visio, have a look at the following articles: John Goldsmith: Just For Starters, Run VBA Code When Documents Open and VBA Macro [...]

By: Mark Nelson (MS)

Mark Nelson (MS) — Sat, 26 May 2007 06:32:19 +0000

Good tip, Chris!