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

2019-10-30 16:18:00
tmtony8
原创
111

在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


    分享