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

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

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

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

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

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

Sub Macro3()'Enable diagram servicesDim DiagramServices As IntegerDiagramServices = ActiveDocument.DiagramServicesEnabledActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150   %当前范围声明，仅需一次Application.Settings.SetRasterExportResolution visRasterUseCustomResolution, 600#, 600#, visRasterPixelsPerInchApplication.Settings.SetRasterExportSize visRasterFitToSourceSize, 3.4375, 1.8125, visRasterInchApplication.Settings.RasterExportDataCompression = visRasterNoneApplication.Settings.RasterExportColorReduction = visRasterAdaptiveApplication.Settings.RasterExportColorFormat = visRaster24BitApplication.Settings.RasterExportRotation = visRasterNoRotationApplication.Settings.RasterExportFlip = visRasterNoFlipApplication.Settings.RasterExportBackgroundColor = 16777215ActiveWindow.DeselectAllActiveWindow.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 servicesActiveDocument.DiagramServicesEnabled = DiagramServicesApplication.Settings.SetRasterExportResolution visRasterUseCustomResolution, 600#, 600#, visRasterPixelsPerInchApplication.Settings.SetRasterExportSize visRasterFitToSourceSize, 3.4375, 1.8125, visRasterInchApplication.Settings.RasterExportDataCompression = visRasterNoneApplication.Settings.RasterExportColorReduction = visRasterAdaptiveApplication.Settings.RasterExportColorFormat = visRaster24BitApplication.Settings.RasterExportRotation = visRasterNoRotationApplication.Settings.RasterExportFlip = visRasterNoFlipApplication.Settings.RasterExportBackgroundColor = 16777215ActiveWindow.DeselectAllActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(1075), visSelectApplication.ActiveWindow.Selection.Export "D:picture\no_load_all_源文件-502.tif"Application.Window.WindowState = visWSRestored'Restore diagram servicesActiveDocument.DiagramServicesEnabled = DiagramServicesApplication.Settings.SetRasterExportResolution visRasterUseCustomResolution, 600#, 600#, visRasterPixelsPerInchApplication.Settings.SetRasterExportSize visRasterFitToSourceSize, 3.4375, 1.8125, visRasterInchApplication.Settings.RasterExportDataCompression = visRasterNoneApplication.Settings.RasterExportColorReduction = visRasterAdaptiveApplication.Settings.RasterExportColorFormat = visRaster24BitApplication.Settings.RasterExportRotation = visRasterNoRotationApplication.Settings.RasterExportFlip = visRasterNoFlipApplication.Settings.RasterExportBackgroundColor = 16777215ActiveWindow.DeselectAllActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(1075), visSelectApplication.ActiveWindow.Selection.Export "D:picture\no_load_all_源文件-503.tif"Application.Window.WindowState = visWSRestored'Restore diagram servicesActiveDocument.DiagramServicesEnabled = DiagramServicesEnd Sub

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

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

使用ImageMagick将eps批量导出为透明png图片
一.前言后文的解释比较啰嗦,这里先上总结论:下载magick软件,在命令行使用下述两行代码: mogrify -density 120 -format png *.eps mogrify -tran ...
Word VBA：批量导出Visio对象为图片
目录一.思路 1.遍历文档中的域fd 2.判断每一个域fd 3.二进制存储二.示例代码 1.代码 2.运行效果 (1)示例文件 (2)复制代码-运行 (3)选择存储位置 (4)存储完成 (5)查看 ...
VBA应用笔记 -- 批量导出excel工作表中的图片
业务场景: 日常工作中,我们可能会遇到需要批量导出excel表中的图片的情况,按照网友的做法,批量导出excel中的图片主要有几种方法: 解压缩方法:可以通过将excel文件转成rar压缩文件,解压后 ...
Excel批量导出当前工作表所有图片的快捷操作
我们都知道excel是没有将图片导出的功能的,更别提批量导出多个图片了,那今天小编要和大家分享一下批量导出当前工作表图片的操作 (方方格子插件) 1.动图演示 2.选择图片工具命令按钮 3.选择导出图 ...
python批量下载模库网图片
这里写自定义目录标题 python批量下载模库网图片步骤: 代码 python批量下载模库网图片步骤: 获取页数获取列表页获取图片链接和名字相关字典创建存放图片的文件夹下载图片代码 im ...
c# excel导出png_批量导出Excel文件中的图片，用VBA代码其实很简单
本次案例来自悟空问答网友提问,之前由于时间原因,回复比较简单没有给出具体实现方法,今天花时间整理写成图文,希望小伙伴们都可以学会.@沉默的生物钟实际问题一.数据模拟--素材准备为了更加真实的还原 ...
ArcGIS arcpy代码工具——数据驱动工具批量导出MXD文档并同步导出图片
ArcGIS arcpy代码工具--数据驱动工具批量导出MXD文档并同步导出图片功能说明: 1 准备工作设置数据驱动页面页面范围设置保存MXD文档 2 代码分段 (1)设定基础数据 (2)调用 ...
excel 宏录制，宏代码查看
1.第一步第二部.查看宏代码第三步: 使用宏录制的好处可以查看操作代码,便于vsto编程.
还自己写代码？VBA录制宏了解下
这是<Excel VBA:办公自动化>教程的第9节,介绍录制宏. 1.认识VBA:什么是VBA? 2.这些掌握了,你才敢说自己懂VBA 3.VBA变量5年踩坑吐血精华总结 4.VBA中重要 ...

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

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

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

最新文章

热门文章