파일 내 모든 비지오 다이어그램을 TIFF 파일로 저장

saveastiff.vbs

Sub SaveAsTIFF()
  Dim folder As String, filename As String
  Dim doc As Visio.Document
  Dim pg As Visio.Page
  Dim i As Integer
  Dim formatExtension As String
  
  '// Init folder, doc and counter:
  folder = ThisDocument.Path
  formatExtension = ".tif"
  Set doc = Visio.ActiveDocument
  i = 1
  
  '// Loop through pages:
  For Each pg In doc.Pages
      
    '// Setup the filename:
    filename = Format(i, "000")
    
    '// 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