通过录制宏获得宏代码
Sub Macro1()
'Enable diagram services
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
Application.Settings.SetRasterExportResolution visRasterUseCustomResolution, 300#, 300#, visRasterPixelsPerInch
Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 7.925, 9#, visRasterInch
Application.Settings.RasterExportDataCompression = visRasterNone
Application.Settings.RasterExportColorReduction = visRasterAdaptive
Application.Settings.RasterExportColorFormat = visRaster24Bit
Application.Settings.RasterExportRotation = visRasterNoRotation
Application.Settings.RasterExportFlip = visRasterNoFlip
Application.Settings.RasterExportBackgroundColor = 16777215
Application.ActiveWindow.Page.Export "C:\Users\Administrator\Desktop\visio批量\fig8.tif"
'Restore diagram services
ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub
但感觉还是得每次都复制粘贴命令啊
但还是运行成功了
但还需要进一步研究批量的方法。