visio VBA

visio VBA

 Call ThisDocument.ExportAsFixedFormat(visFixedFormatPDF, "c:\aa.pdf", visDocExIntentScreen, visPrintAll) ‘导出PDF
  

 '将每一页导出图片
 Dim vsoPage As Visio.Page
 Dim i As Integer
 
 For i = 1 To ThisDocument.Pages.Count
     Set vsoPage = ThisDocument.Pages.Item(i)
     Call vsoPage.Export("c:\" & vsoPage.Name & ".jpg")
  Next