export all pages in visio 2010 to jpg

I was working on a diagram in visio that had 20 pages. I needed to export all of them to jpg but I didn't want to click file -> save as 20 times. I found a bit of code online and it just needed to be changed slightly for visio 2010.

In visio click View -> Macros. Type the name of the macro (I called mine saveallpages) and click the Create button. The code should look like this.

Public Sub saveallpages()

  Dim i As Integer

  Dim formatExtension As String

  formatExtension = ".jpg"

  

  '// Init folder, doc and counter:

  folder = ThisDocument.Path

  Set doc = Visio.ActiveDocument

  i = 1

  '// Loop through pages:

  For Each pg In doc.Pages

    '// Setup the filename:

     FileName = Format(i, "000") & " " & pg.Name

    '// Append '(bkgnd)' to background pages:

     If (pg.Background) Then FileName = FileName & " (bkgnd)"

    '// Add the extension:

    FileName = FileName & formatExtension

    '// Save it:

     Call pg.Export(folder & FileName)

    i = i + 1

    

    Next

End Sub