批量导出visio里的图为图片的宏代码

Sub MacroExportJpgByChenph()

    'Enable diagram services
    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 = 75
        Application.ActiveWindow.Page.Export ActiveDocument.Path + "" + Application.ActiveWindow.Page.Name + ".jpg"

    Next
  'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices

End Sub

• 原文地址
  

最后

以上就是生动大神最近收集整理的关于批量导出visio里的图为图片的宏代码的全部内容，更多相关批量导出visio里内容请搜索靠谱客的其他文章。