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

最新推荐文章于 2025-04-27 17:36:22 发布

Mr_Chenph

最新推荐文章于 2025-04-27 17:36:22 发布

阅读量2.4k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：其他

本文链接：https://blog.youkuaiyun.com/yueritian/article/details/80471192

其他专栏收录该内容

13 篇文章

订阅专栏

本文提供了一段Visio宏代码，能够帮助用户快速将Visio文件中的多个图形导出为图片格式，提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

原文地址