excel插入图片自动适应表格大小

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