Excel VBA 代码：自动调整指定列表格图片大小

Sub AutoFitPictures() Dim pic As Picture For Each pic In ActiveSheet.Pictures pic.ShapeRange.LockAspectRatio = msoFalse pic.TopLeftCell.EntireRow.RowHeight = pic.Height + 5 pic.TopLeftCell.EntireColumn.ColumnWidth = pic.Width / 5 Next pic End Sub

说明：该 VBA 代码可以自动调整某列中的所有图片大小。将代码复制到 Excel 的 VBA 编辑器中，然后运行即可。需要注意的是，该代码只适用于某列中所有图片大小相同的情况。如果列中的图片大小不同，需要进行一些调整。