VBA Excel复制Visio当前工作表的绘图并粘贴在Excel工作表中

Question

我想从Visio复制到excel的东西，如果可能的话。

我在这里找到了一些提示。

复制一个visio页面，然后把它粘贴到excel中作为一个图像

并试图在我的代码中使用。

 Sub Visio()
 vsoPage.CreateSelection(visSelTypeAll).Copy
 CIwb.Worksheets("Cables1").Paste
 End Sub

但我得到错误424 - object required.Debugger指向以下一行。

  vsoPage.CreateSelection(visSelTypeAll).Copy

我如何才能将当前的Visio工作表复制到当前的Excel工作表中？

Answer 1

深入了解一下你在问题中提到的答案。复制一个visio页面，并将其粘贴在excel中作为一个图像。

有一张纸条。

"假设你 页面对象被命名为 vsoPage '这嵌入了visio绘图

所以，你必须使用Visio页面的名称，你要复制。另一个要求是使用正确的Excel工作簿和工作表。所以，不要使用哑巴复制的代码。取而代之的是，试着去理解它的作用，并根据自己的需要进行修改。

注意：原问题中提出的代码是放在Excel中的! 如果你想从Visio中运行它，你需要。1)创建一个MS Excel实例 2)打开现有的Excel工作簿或创建新的 3)复制Visio页面 4)关闭Excel工作簿 5)关闭MS Excel应用程序实例。

运气好