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
|
|
|
|
