【VBA】--利用VBA代码导出Visio设计图

通过Visio可以绘制各种架构图、业务流程图，但是Visio并没有直接将一个visio文件中所有绘图导出成图片的功能。通过观察宏录制，结合一些实践，小Z习得了如何使用vba代码导出图片。

步骤为：

1.开启“开发工具”，点击“宏”，创建新宏。

2.编写代码。

代码如下：

Sub ExportToImage()  

'Enable diagram services  

Dim DiagramServices As Integer  

Dim vsoPage As Visio.Page  

Dim vsoDocuments As Visio.Documents  

Dim vsoPages As Visio.Pages  

Dim exportFileUrl As String  

Dim exportFileFormat As String  

    DiagramServices = ActiveDocument.DiagramServicesEnabled  

    ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150  

exportFileUrl ="C:\Users\18495\Desktop\"  

exportFileFormat =".jpg"  

Set vsoDocuments = Application.Documents  

For Each vsoDocument In vsoDocuments  

Set vsoPages = vsoDocument.Pages  

For Each vsoPage In vsoPages  

            Application.ActiveWindow.Page = Application.ActiveDocument.Pages.Item(vsoPage.Name)  

            Application.Settings.SetRasterExportResolution visRasterUseScreenResolution, 144#, 144#, visRasterPixelsPerInch  

            Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 11#, 7.006944, visRasterInch  

            Application.Settings.RasterExportColorFormat = visRasterRGB  

            Application.Settings.RasterExportOperation = visRasterBaseline  

            Application.Settings.RasterExportRotation = visRasterNoRotation  

            Application.Settings.RasterExportFlip = visRasterNoFlip  

            Application.Settings.RasterExportBackgroundColor = 16777215  

            Application.Settings.RasterExportQuality = 75  

            Application.ActiveWindow.Page.export exportFileUrl + vsoPage.Name + exportFileFormat  

Next  

Next  

'Restore diagram services  

    ActiveDocument.DiagramServicesEnabled = DiagramServices  

End Sub  

其中小Z增加了2个变量，用于设置文件路径（exportFileUrl）和文件格式（exportFileFormat），实际使用可以进行变量修改。

之后只要运行代码，目前就默认在桌面上生成一堆图片了，然后就可以愉快的使用这些图片，这可以节省大量时间，毕竟一份visio中包含了大量的图需要使用，一个一个导出太耗费时间了。