1
ALT + F11
2
菜单 插入-----模块
3
键入
Sub PictureFitUnit()
Dim sh As Shape
For Each sh In ActiveSheet.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 sh
End Sub
4
光标在模块中,F5执行