Visio 快速导出为JPG 格式、批量导出

使用说明：

在开发者工具功能区中点击宏文件 

 名字随意输入后，点击创建

 

 在编辑页面中复制代码，点击执行后就能快速导出每张页面为JPG格式了（代码在文末）

如果功能区无选项则请点击  文件 --> 选项 --> 自定义功能区 找到开发工具打勾并保存 

 

宏代码： 

Sub export()
    Dim DiagramServices As Integer
    DiagramServices = ActiveDocument.DiagramServicesEnabled
    ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
    For i = 1 To Application.ActiveDocument.Pages.Count
        Application.ActiveWindow.Page = Application.ActiveDocument.Pages.Item(i)
        Application.Settings.SetRasterExportResolution visRasterUseScreenResolution, 96#, 96#, visRasterPixelsPerInch
        Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 1.583333, 1.1875, visRasterInch
        Application.Settings.RasterExportColorFormat = visRasterRGB
        Application.Settings.RasterExportOperation = visRasterBaseline
        Application.Settings.RasterExportRotation = visRasterNoRotation
        Application.Settings.RasterExportFlip = visRasterNoFlip
        Application.Settings.RasterExportBackgroundColor = 16777215
        Application.Settings.RasterExportQuality = 100
        Application.ActiveWindow.Page.export ActiveDocument.Path + "\" + Application.ActiveWindow.Page.Name + ".jpg"
    Next
    ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub

Tip: 导出的图片当前默认为Viso 文件同目录下