如何将多个 visio 文件 (.vsd) 转换为 png答案

【问题标题】：How to convert multiple visio file (.vsd) to png如何将多个 visio 文件 (.vsd) 转换为 png
【发布时间】：2012-11-16 09:00:36
【问题描述】：

我有很多 Visio 文件，并希望以编程方式将它们全部转换为 png 格式。

我找到了几个解决方案，但无法让其中任何一个起作用。

如何通过命令行或类似方式轻松地将 .vsd 文件批量转换为 .png？

【问题讨论】：

标签： command-line batch-file automation converter visio

【解决方案1】：

使用内置的 Visual Basic

类似这样：自己修复路径部分。

Sub a()

   Dim docs As New Collection
   ' add the paths of your documents here, use more script if you want wildcard etc
   docs.Add ("C:\Users\[username]\Desktop\New folder (4)\drawing2.vsd")
   docs.Add ("C:\Users\[username]\Desktop\New folder (4)\drawing3.vsd")

   For Each d In docs    
      Dim doc As Document     
      Set doc = Documents.Add(d)

      Dim p As Page

        For Each p In doc.Pages       
        Dim n As String

        ' change this for the output path and format of your choice      
        n = "C:\Users\[username]\Desktop\New folder (4)\" & doc.Name & " " & p.Index & ".png"      
        p.Export (n)

        Next
    Next

End sub

【讨论】：

看起来找到了，但我注意到之前通过代码访问过 office 文档。如何访问“文档”和“页面”类？当我在 VS 中复制你的代码时，它会注意默认找到类。
它在 Visio 本身中，创建一个新文档来保存您的脚本，选择视图选项卡、宏按钮或按 alt+f8。添加一个新宏并将代码粘贴进去。