导出visio中图片为svg格式（VB脚本）

导出visio中图片为svg格式.vbs

Public Sub ExportPages()
 
    '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
            
            vsoPage.Export ("D:\jahentao\Documents\ApplicationDevelopment\converted\" + vsoPage.Name + ".svg")
  
        Next
 
    Next
 
End Sub

在visio文档中打开宏，运行效果