Excel VBA 代码：自动调整 L9 到 L16 区域图片大小

Sub AutoFitPicture() Dim ws As Worksheet Set ws = ActiveSheet '设置当前活动工作表

'设置需要自动调整大小的图片的位置范围
Dim picRange As Range
Set picRange = ws.Range('L9:L16')

'循环遍历每一个图片
For Each pic In picRange.Shapes
    '设置图片自动调整大小
    pic.ScaleHeight 1, msoTrue
    pic.ScaleWidth 1, msoTrue
    '移动图片到单元格内居中
    pic.Top = pic.Top + (pic.Height - picRange.Cells(1).Height) / 2
    pic.Left = pic.Left + (pic.Width - picRange.Cells(1).Width) / 2
Next pic

End Sub