Question

我有一个用于绘制动态连接器的VBA宏。 连接器主机如下所示：

dim flowChartStencils as visio.document
set flowChartStencils = documents.openEx(templatePath, 0)

dim connectorMaster as visio.master
set connectorMaster = flowChartStencils.masters(dynamicConnectorName)

我面临的问题是templatePath和dynamicConnectorName似乎都依赖于visio安装的语言。所以，在代码中，我有一个：

' const templatePath = "C:\Programme\Microsoft Office\Visio10\1031\Solutions\Flowchart\Basic Flowchart Shapes (US units).vss"
  const templatePath = "c:\Program Files\Microsoft Office\Visio10\1031\Lösungen\Flussdiagramm\Grundlegende Flussdiagramm-Shapes.VSS"

和

' const dynamicConnectorName = "Dynamic Connector"
  const dynamicConnectorName = "Dynamischer Verbinder"

我根据安装语言评论和取消评论。

由于我想将vba代码移植到不同的安装中，我想知道是否有更简单的方法，甚至是最简单的方法。

Answer 1

怎么样：

If Application.Language = "English" Then
    const dynamicConnectorName = "Dynamic Connector"
Elseif Application.Language = "German" Then
    const dynamicConnectorName = "Dynamischer Verbinder"
End If

Visio-vba中的语言中性“动态连接器”

1 个答案: