通过VBA将多个图像插入单个单元格

Question

我在一个工作表中存储了4张图像，并且满足某些条件后，我想将这些图像复制到不同工作表中的一系列单元格中。问题是，一个单元格可能有多个图像（到目前为止最多12张，甚至可以超过），我想将它们彼此相邻排列，并且当图像的宽度超过单元格宽度时，行高目的地单元格的数量将增加，并且图像将被相应地粘贴。我试图记录VBA并获得了以下内容。

 Sub Macro17()
'
' Macro17 Macro
'

'
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Selection.Copy
    Sheets("Destination").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("C2").Select
    ActiveSheet.Paste
    Sheets("Depot").Select
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.Copy
    Sheets("Destination").Select
    Range("C2").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 19.5
    Selection.ShapeRange.IncrementTop 1.5
End Sub

有没有办法找出一个单元格已经有多少个图像，这样我就可以自动化Selection.ShapeRange.IncrementLeft部分。我在excel单元上搜索了图像的对象属性，但没有找到任何可以回答我的问题的东西。任何帮助将不胜感激。