如何从 Access 在 Visio 中启动数据向导（从模板创建图表）

Question

我正在尝试在 Access 中创建一个按钮，它将打开 Visio 并启动数据向导来创建图表。我尝试了各种解决方案，但我得到的只是打开一个空白的 Visio 文档（基于我的模板）。向导没有启动。为了比较，只需单击 template.vstx 即可启动向导。我无法从 VBA.

中重现此行为

非常感谢任何提示

这是我正在使用的代码：

 Function openvis()
 Dim vis As Visio.Application
 Set vis = CreateObject("Visio.Application")
 With vis
 .Visible = True
 .Documents.Add "C:\Templatev2.vstx"
 End With
 End Function

Answer 1

我创建了一个 VBA 宏如下：

 Sub test()
   Dim vis As Visio.Application
   Set vis = CreateObject("Visio.Application")
   With vis
     .Visible = True
     .Documents.Add "C:\Users\paul\Documents\Drawing1.vstx"
   End With
 End Sub

一切正常。向导启动。

Answer 2

我终于找到了一个解决方案，可以在 Access 的自定义模板上启动 Visio 数据向导：

'CreateObject("Shell.Application").Open "C:\path\mytemplate.vstx"

如何从 Access 在 Visio 中启动数据向导（从模板创建图表）

how to launch a Data Wizard (create diagram from a template) in Visio from Access

ms-access

vba

visio