Excel vba将图片顺序放入单元格中，且图片大小随单元格的变化而变化

在Excel工作表中，添加了多个图片，我们希望把图片逐个放入到单元格中

可使用下面VBA代码循环将图片顺序放入各单元格里。比如这里放在A列，并设置大小与位置随单元格变化

For i = 1 To ActiveSheet.Shapes.Count
With ActiveSheet.Shapes(i)
  .Left = Range("A" & i).Left
  .Top = Range("A" & i).Top
  .Width = Range("A" & i).Width
  .Height = Range("A" & i).Height
  .Placement = xlMoveAndSize
End With
Next i