image - 将 250 多个图像捕捉到每个单元格的一个图像

Question

我正在处理工作中的电子表格，一位同事将 250 多张图像粘贴到一列顶部。图像不会捕捉到它们对应的单元格，因此对单元格的任何操作都会导致图像位于错误的位置。

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

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

将所有图像放在一个数组中

使用数组中图像的关键编号，将其分配给相应的单元格编号

解析相应单元格的尺寸，并将尺寸应用于图像

这是我尝试过的:

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