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
批量导出visio里的图为图片的宏代码
最新推荐文章于 2024-03-16 16:27:19 发布