在工作中，我们广泛使用 Visio 绘图来支持文档。不幸的是，vsd 文件不能很好地与我们的 wiki 或文档提取工具(如 javadoc、doxygen 或 naturaldocs)一起使用。虽然可以手动将 Visio 文件转换为图像，但保持图像最新很麻烦，而且图像文件必然会过时。让我们面对现实:在修订控制中生成文件感觉很不对劲。

所以我正在寻找一个命令行工具，可以将 vsd 文件转换为 jpeg、png、gif 或任何可以转换为浏览器可以显示的图像的图像。最好在 unix 下运行，但仅在 windows 下也可以。我可以处理其余的自动化链、cron 作业、图像到图像的转换以及 ssh、scp、多个文件等。

这就是我求助于您的原因:我找不到这样的工具。我不认为我什至可以支付这样的工具。我的 Google-fu 完全关闭了吗？你能帮帮我吗？

我的意思是，这必须是可能的。必须有一种方法可以使用 COM 连接到 Visio 并将其另存为图像。顺便说一句，我正在使用 Visio 2007。

提前致谢。

最佳答案

我使用 VB6 快速组合了一些东西，您可以在以下位置下载它: http://fournier.jonathan.googlepages.com/Vis2Img.exe

您只需传入输入 visio 文件路径，然后是输出文件路径(visio 导出基于文件扩展名)和可选的要导出的页码。

这里还有我使用的源代码，如果你想弄乱它或者把它变成 VBScript 之类的，它应该可以工作，尽管你需要完成将它转换为后期绑定(bind)代码。

希望对你有帮助，

乔恩

Dim TheCmd As String
Const visOpenRO = 2
Const visOpenMinimized = 16
Const visOpenHidden = 64
Const visOpenMacrosDisabled = 128
Const visOpenNoWorkspace = 256

Sub Main()
    ' interpret command line arguments - separated by spaces outside of double quotes
    TheCmd = Command
    Dim TheCmds() As String
    If SplitCommandArg(TheCmds) Then
        If UBound(TheCmds) > 1 Then
            Dim PageNum As Long
            If UBound(TheCmds) >= 3 Then
                PageNum = Val(TheCmds(3))
            Else
                PageNum = 1
            End If

            ' if the input or output file doesn't contain a file path, then assume the same
            If InStr(1, TheCmds(1), "\") = 0 Then
                TheCmds(1) = App.Path & "\" & TheCmds(1)
            End If
            If InStr(1, TheCmds(2), "\") = 0 Then
                TheCmds(2) = App.Path & "\" & TheCmds(2)
            End If

            ConvertVisToImg TheCmds(1), TheCmds(2), PageNum
        Else
            ' no good - need an in and out file
        End If
    End If

End Sub

Function ConvertVisToImg(ByVal InVisPath As String, ByVal OutImgPath As String, PageNum As Long) As Boolean
    ConvertVisToImg = True
    On Error GoTo PROC_ERR

    ' create a new visio instance
    Dim VisApp As Visio.Application
    Set VisApp = CreateObject("Visio.Application")

    ' open invispath
    Dim ConvDoc As Visio.Document
    Set ConvDoc = VisApp.Documents.OpenEx(InVisPath, visOpenRO + visOpenMinimized + visOpenHidden + visOpenMacrosDisabled + visOpenNoWorkspace)

    ' export to outimgpath
    If Not ConvDoc.Pages(PageNum) Is Nothing Then
        ConvDoc.Pages(PageNum).Export OutImgPath
    Else
        MsgBox "Invalid export page"
        ConvertVisToImg = False
        GoTo PROC_END
    End If

    ' close it off
PROC_END:
    On Error Resume Next
    VisApp.Quit
    Set VisApp = Nothing
    Exit Function
PROC_ERR:
    MsgBox Err.Description & vbCr & "Num:" & Err.Number
    GoTo PROC_END
End Function

Function SplitCommandArg(ByRef Commands() As String) As Boolean
    SplitCommandArg = True
    'read through command and break it into an array delimited by space characters only when we're not inside double quotes
    Dim InDblQts As Boolean
    Dim CmdToSplit As String
    CmdToSplit = TheCmd 'for debugging command line parser
    'CmdToSplit = Command
    Dim CharIdx As Integer
    ReDim Commands(1 To 1)
    For CharIdx = 1 To Len(CmdToSplit)
        Dim CurrChar As String
        CurrChar = Mid(CmdToSplit, CharIdx, 1)
        If CurrChar = " " And Not InDblQts Then
            'add another element to the commands array if InDblQts is false
            If Commands(UBound(Commands)) <> "" Then ReDim Preserve Commands(LBound(Commands) To UBound(Commands) + 1)
        ElseIf CurrChar = Chr(34) Then
            'set InDblQts = true
            If Not InDblQts Then InDblQts = True Else InDblQts = False
        Else
            Commands(UBound(Commands)) = Commands(UBound(Commands)) & CurrChar
        End If
    Next CharIdx
End Function

关于windows - Visio 到图像命令行转换，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/1145269/