时间戳

首页 > 解决方案 > VBA Excel复制Visio当前工作表绘图并粘贴到Excel工作表中

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

问题描述

如果可能的话，我想将 Visio 中的内容复制到 excel 中。

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

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

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

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

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

  vsoPage.CreateSelection(visSelTypeAll).Copy

在此处输入图像描述

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

标签： excelvbavisio

解决方案

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

有一个注释：

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

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

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

祝你好运！

推荐阅读