我是否可以使照片跟随excel上的数字，或通过VBA将其从一个单元格移动到另一个单元格？

我刚刚通过VBA在excel上为我的学校项目构建了一个国际象棋游戏。 我制作它的方式是每件作品都有一个数字和一种颜色（绿色/红色）：

只是为了让它看起来更好，我想添加每件作品的图片，这些图片将跟随数字，或者通过VBA推荐移动，这将与移动作品的推荐一起提供。 如果可能的话，我更喜欢第一种选择，但第二种也不错。 我现在移动碎片的方式是这样的：

   MoveNum = Range(Range("j2").Value).Value
   Range(Range("j2").Value).Value = 0
   Range(Range("j2").Value).FormulaR1C1 = ""
   Range(Range("j2").Value).Font.Color = -0
   Range(Range("k2").Value).Value = MoveNum
   Range(Range("k2").Value).Font.Color = RGB(210, 0, 0)

（这是移动红色块的块，它和绿色块之间的唯一区别是RGB是（0，175，20）而不是（210，0，0）

---

顺便说一句，我的整个代码都是基于数字的，所以更改/不使用数字不是一个选项。

一个省时的选择是使用字符，而不是图像：

♔♕♖♗♘♙♚♛♜♝♞♟ 这些是Unicode到的，您可以使用工作表函数或VBA中的函数将它们添加到Excel

此外，您还可以将它们从上方复制粘贴到工作表中，然后像处理任何其他文本一样处理它们，包括字体大小

这是80分的骑士：

当我需要一个符号或图标时，我最喜欢看的地方是（或识别一个）。截至2019年3月，Unicode包含近140000个字符，并不断添加更多字符。
（一定要在上面签名，添加一个锅叶表情符号！）

   MoveNum = Range(Range("j2").Value).Value
   Range(Range("j2").Value).Value = 0
   Range(Range("j2").Value).FormulaR1C1 = ""
   Range(Range("j2").Value).Font.Color = -0
   Range(Range("k2").Value).Value = MoveNum
   Range(Range("k2").Value).Font.Color = RGB(210, 0, 0)