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

Question

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

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

复制一个visio页面并将其作为图像粘贴到excel中

并尝试在我的代码中使用：

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

但我收到错误 424 - 需要 object。 调试器指向以下行：

  vsoPage.CreateSelection(visSelTypeAll).Copy

如何将当前的 Visio 工作表复制到当前的 Excel 工作表？

Answer 1

深入了解您在问题中提到的答案： Copying a visio page and paste it in excel as a image

有一个注释：

'假设你的页面object被命名为vsoPage '这个嵌入visio绘图

因此，您必须使用要复制的 Visio 页面的名称。
另一个要求是使用正确的 Excel 工作簿和工作表。 所以，不要使用代码的虚拟副本。 取而代之的是，尝试了解它的作用并将其更改为您的需求。

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

祝你好运！