复制工作簿中的对象

我有一个工作簿，根据工作簿中另一个工作表的某些input指标显示一个小彩色框。 我想要在工作簿中的附加工作表中显示这些小彩色框。 有没有办法在工作表中复制一个形状，以便颜色仍然会随着指标而更新，而不是再次将代码用于单独的工作表？

我基本上想要在另一个工作表中显示带有彩色框/箭头的文本框。

Answer 1

一个非常肮脏的方式来做这样的事情将是间接图片复制解决scheme。

Asume艺术是在Sheet1 B2：D8那么只需在Sheet2中input图片（图片无关紧要，只要select第一个就可以find）

在公式栏中select图片input=Sheet1!B2:D8 。

希望有所帮助;）

编辑

为了使它dynamic地放在任何模块中：

 Public Function testing() As Range Set testing = Range(Sheet1.Shapes("Dia 1").TopLeftCell, Sheet1.Shapes("Dia 1").BottomRightCell) End Function 

（确保更改名称以符合您的工作簿/图纸/形状….-名称）

然后定义一个名字（我将为此示例selectTETE）

指： =testing()

那么图片公式是： =TETE

每当尺寸或位置发生变化时，您的照片都适合它…仍然不是解决您的问题的好方法（在我眼中）

有趣的事实：直接将图片公式=testing()将popup一个错误