在工作簿中复制对象

Question

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

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

Answer 1

执行类似此操作的非常脏的方法是间接图片复制解决方案。

假设艺术在Sheet1 B2：D8那么只需在Sheet2中输入一张图片（图片没关系，只需选择你能找到的第一张）

在公式栏=Sheet1!B2:D8中选择图片时输入。

希望有所帮助;）

修改

使其动态放入任何模块：

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

（确保更改名称以适合您的工作簿/工作表/形状....-名称）

然后定义一个名称（我将为此示例选择TETE）

指：=testing()

然后图片公式为：=TETE

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

有趣的事实：直接将图片公式设为=testing()只会弹出错误