TODO: replace characters from page names that will be illegal in file names.

Also the export falls over if you have any disallowed characters in your page names – I had colons and it took me a while to figure out that I needed to remove them.

Thanks again

Change this:

Dim formatExtension As String formatExtension = ".gif" '...or .bmp, .jpg, .png, .tif


to this:

Dim formatExtension As String
formatExtension = ".gif"
'//…or .bmp, .jpg, .png, .tif


Fixed the second typo, not sure what your first comment was about…those are just comments!

formatExtension = “.gif” ‘…or .bmp, .jpg, .png, .tif
=>
formatExtension = “.gif”
‘//…or .bmp, .jpg, .png, .tif

Set doc = Visio.ActiveDocument i = 1
=>
Set doc = Visio.ActiveDocument
i = 1

Yup, Visio 2010 finally has added some control over export resolution!

New Visio 2010 API for Configuring Raster Export

Just copying the button doesn’t copy all the code behind it. You probably just end up with another button that is linked to nothing.

Here’s roughly how to hook a button to VBA code. After adding a button to a Visio page:

1. Right click the button
2. Choose CommandButton Object > View Code
3. In the VBA editor that appears, add the code from this article either by referencing sub ExportAllPages, or copying the code and pasting it into the Button’s procedure.

Please tell me more detail about how can I create the button Export all in my new Visiso document and insert the VB code?

I tried to copy the button in demo file (Export All Pages.vsd) to my Visio file, but nothing happen when clicking on it.

Thank you.

Make the document you want to export the “active” document. Ie: give it focus and minimize the “exporter”.

Then, go into the VBA project and look for ThisDocument.ExportAllPages. Place your cursor somewhere in this procedure, then press F5 to run it.

The code gets the ActiveDocument and exports that. When you press the button, then the exporter document is always active, so if using the button, you’re kind of stuck.

But when running from the code window, any document can be active, so this is more flexible.

When I click the “Export All Pages” button in “Export All Pages.vsd, it exports only the Export All Pages” image.

How do I tell it to export all the pages in MY document?

Thank you,

Rick

Just change a few lines, for example:

Dim formatExtension As String formatExtension = “.png”

folder = “C:\DurzosExports”

- Chris

thanks

Durzo