使用VBA代码将单元格范围复制到Visio（2013）

Question

我有一系列Excel单元格（让我们称之为＃34;表A和＃34;）我希望使用VBA将该范围/表复制到Visio中。

没有VBA - 我可以在Excel中复制范围，转到Visio - 插入 - 图表 - 转到Sheet1选项卡 - 粘贴

使用VBA - 我是一个新手所以这就是我认为它应该是这样的：

Set AppVisio = CreateObject("visio.Application")
AppVisio.Visible = True

AppVisio.Documents.AddEx "basicd_u.vst", 0, 0
        Worksheets("Sheet1").Range("TABLEA").Copy _
        AppVisio.ActiveWindow.Page.Add.Paste