Sub 图片适应单元格()

Sub 图片适应单元格()
Dim sh As Shape
For Each sh In acitivesheet.Shapes
   sh.LockAspectRatio = False
   sh.Left = sh.TopLeftCell.Left
   sh.Top = sh.TopLeftCell.Top
   sh.Width = sh.TopLeftCell.Width
   sh.Height = sh.TopLeftCell.Height
Next
End Sub


https://www.cnblogs.com/onelikeone/p/12190916.html