每个单元格将超过250个图像捕捉到一个图像

Question

我正在制作工作中的电子表格，并且同事在列的顶部粘贴了250多张图像。图像不会与其对应的单元格对齐，因此对单元格的任何操作都会导致图像位于错误的位置。

我正在寻找一种方法将所有图像粘贴到单元格中，并让它们成为单元格的一部分，就像我粘贴文本列表一样。

在一个理想的世界里，我希望它能像这样工作：

1. 将所有图像放在一个数组中
2. 使用数组中图像的键编号，将其分配给相应的单元格编号
3. 解析相应单元格的尺寸，并将尺寸应用于图像

这就是我的尝试：

Sub movePics()
  Dim picCounter As Long

  picCounter = 0
  For Each s In ActiveSheet.Shapes
    picCounter = picCounter + 1
    With s
      .Left = 100
      .Top = ActiveSheet.Rows(picCounter).Top
      .Placement = xlMoveAndSize
    End With
  Next
End Sub

Answer 1

这个快速循环将遍历所有形状，并将它们设置为“使用单元格移动和调整大小”。

Sub Testing()

    For x = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(x).Placement = xlMoveAndSize
    Next x

End Sub