Command line 如何将多个visio文件（.vsd）转换为png

我有很多Visio文件，希望通过编程将它们全部转换为png格式

我已经找到了一些解决方案，但没有一个可行

---

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

使用内置的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。添加一个新宏并粘贴代码。