批量导出VSD文件到JPG文件宏

最新推荐文章于 2023-04-27 17:38:47 发布

转载最新推荐文章于 2023-04-27 17:38:47 发布 · 960 阅读

文章标签：

#VSD导出宏

本文介绍了一段VBA宏代码，用于将Visio(.VSD)文件批量转换为JPG格式图片。宏通过设置导出分辨率、尺寸、颜色格式等参数，确保输出图片质量，并按页面名称保存，适用于批量处理复杂图表。

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

批量导出VSD文件到JPG文件宏

**
Sub Macro1()

'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 visRasterUseCustomResolution, 600#, 600#, visRasterPixelsPerInch
Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 7.354167, 10.833333, 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

批量导出VSD文件到JPG文件 宏

批量导出VSD文件到JPG文件 宏

批量导出VSD文件到JPG文件宏

批量导出VSD文件到JPG文件宏