科研绘图经验分享——Visio作图

Arzie100

Introduction：

（22年11月份）给实验室师弟师妹做过一次Visio科研绘图的分享，反馈比较好。
分享给更多的人，希望有或多或少的帮助。
我毕业论文中原始的图形大多来自于Matlab及现场拍摄图，绝大部分会在VIsio里加工，并形成最终版图片。
做出的最终版图片中规中矩，没有像AI之类的软件做出来的那么有空间感和高大上，但是整体风格和谐统一，达到80分的水平是妥妥的。
当时毕业论文盲审2A、1B通过，论文作图功不可没。
1. 绘图常见问题

• 细节问题，尤其是多人合作写项目书时，没有预先统一细节，后续统一特别低效
  
• 以Visio原格式粘贴在Word中线条易紊乱
  
• Word中存在大量图片，文件臃肿，运行龟速，易崩溃
  
• Visio文件中大量图片，另存为其他格式高分辨率图片时，效率低
  
• Matlab绘图，尤其涉及多个子图，非Matlab高手，绘图效率低，细节问题很多
  

2. 常用技巧总结

• 提前设置页面大小，可以设计成不超过Word的有效宽度，这样在Visio图导入Word中时，就不会出现图片和字体的放大和缩小现象。
  

https://www.zhihu.com/video/1598330902479601664

• 常用快捷方式
  

https://www.zhihu.com/video/1598331534993547264
3. 跨软件协作

• Visio与Word协作
  

当图片直接以Visio格式在Word中时，会存在几个问题：（1）线条易紊乱；（2）文件太大，图片过多时，影响运行速度；（3）尤其是多人协作，直接进行细节修改时，慢慢就忘了图片最终版是哪一个。
可用快捷键Ctrl+Shift+F9，用该快捷键可以将Visio格式转换为Windows图片文件的格式(应该不是emf，是16位的)，不仅保持了图片的高清晰度，而且图片的大小大大减小。


https://www.zhihu.com/video/1598337127431016448

• Visio与Matlab
  

之前写的几篇小论文的图片均是在Matlab软件中直接出图的，每张图包含多个子图，信息含量很大，用Matlab直接作图效率低。
毕业论文图片，全部是Matlab出来基本的曲线，复制到Visio中再组合，绘制，效率提高3倍不止。
方法是：在Matlab中复制图窗(此时是emf格式)——粘贴在visio中——右击图片——选取消组合。
后续有需要会再重新录制一个演示补上。
4. 批量导出图片

我毕业论文中涉及到130多张图片，若用一个个另存的方式保存图片格式，会花费大量时间。很多图片会反复修改，每次修改导出，效率很低。
因此，可以录制宏，批量导出。
我写了一个，大家可以直接使用，或者稍微修改一下，就可以导出其他分辨率和图片格式。
有需要的话，后续可以录个屏操作演示一下。
Sub export()
    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, 300#, 300#, visRasterPixelsPerInch
    Application.Settings.SetRasterExportSize visRasterFitToScreenSize, 5.791667, 4.166667, visRasterInch
    Application.Settings.RasterExportColorFormat = visRasterRGB
    Application.Settings.RasterExportOperation = visRasterBaseline
    Application.Settings.RasterExportRotation = visRasterNoRotation
    Application.Settings.RasterExportFlip = visRasterNoFlip
    Application.Settings.RasterExportBackgroundColor = 16777215
    Application.Settings.RasterExportQuality = 100
        Application.ActiveWindow.Page.export ActiveDocument.Path + "\" + Application.ActiveWindow.Page.Name + ".jpg"
    Next
    ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub5.待续......

pc8888888

有时间整理了[吃瓜]

zifa2003293

弄了一丢丢花了两个多小时，暂停了。所以越发佩服你们这些稳定输出的选手，内容系统而又于人有大利[赞][赞]