Visio录制宏代码——重复批量导出600dpi的tiff图片

Visio录制宏，重复批量导出600dpi的tiff图片

因为论文修改需要，需要对$3\times 3\times 4=36$张图片反复修改调整，然后将图片依次导出为600dpi的tiff图片。很不幸的是，枯燥的导出动作做了五六遍，郁闷时想到之前了解过的宏，宏可以把动作转换成代码实现，是进行重复枯燥操作工作者的福音。实际上，在word/ppt/excel等软件中枯燥的重复操作，都可考虑用宏实现。

用代码可以解放一切反人类的重复枯燥动作。

不同软件里找到宏的方法，在下述软件里，一些重复操作动作，都可考虑宏实现。

• word/excel/PPT 视图>宏 (在word/PPT里，更常见的操作是按F4,以重复上一次的操作)
• visio 开发工具>宏

用Visio导出三张600dpi的tiff图片的宏代码如下：

Sub Macro3()

    'Enable diagram services
    Dim DiagramServices As Integer
    DiagramServices = ActiveDocument.DiagramServicesEnabled
    ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150   %当前范围声明，仅需一次

    Application.Settings.SetRasterExportResolution visRasterUseCustomResolution, 600#, 600#, visRasterPixelsPerInch
    Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 3.4375, 1.8125, 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
    ActiveWindow.DeselectAll
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(1074), visSelect  %ID可从形状名>ID处获取值
    Application.ActiveWindow.Selection.Export "D:picture\no_load_all_源文件-501.tif"  %导出路径及命名

    Application.Window.WindowState = visWSRestored

    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices
    
 

    Application.Settings.SetRasterExportResolution visRasterUseCustomResolution, 600#, 600#, visRasterPixelsPerInch
    Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 3.4375, 1.8125, 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
    ActiveWindow.DeselectAll
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(1075), visSelect
    Application.ActiveWindow.Selection.Export "D:picture\no_load_all_源文件-502.tif"

    Application.Window.WindowState = visWSRestored

    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices



    Application.Settings.SetRasterExportResolution visRasterUseCustomResolution, 600#, 600#, visRasterPixelsPerInch
    Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 3.4375, 1.8125, 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
    ActiveWindow.DeselectAll
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(1075), visSelect
    Application.ActiveWindow.Selection.Export "D:picture\no_load_all_源文件-503.tif"

    Application.Window.WindowState = visWSRestored

    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices

End Sub

获取上述宏代码也很简单，找到宏，点击录制，进行需要录制的操作，操作完成后，点击停止录制，即可获得宏代码。以上述代码为例，第二段、第三段代码是复制第一段代码变化来的，删除重复声明，修改ID值，修改导出的文件名。