Excel表格的图片自动排列

1、打开Excel表格，按下【Alt+F11】组合键调出VBE编辑器。

2、点击【插入】、【模块】。

3、在模块代码框里边输入以下VBA程序代码。Sub Shapes_Sort()Dim i, ShpOn Error Resume Next '忽略运行中可能出现的错误Application.ScreenUpdating = False '关闭工作表更新，提高运行速度Set mySheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1工作表i = 1 '初始值For Each Shp In mySheet1.Shapes '扫描工作表Sheet1里面的每一张图片i = i + 1 '从第2行开始Shp.LockAspectRatio = msoFalse '不锁定图片的比例Shp.Height = mySheet1.Cells(i, 5).Height '图片的高度设为单元格高度Shp.Width = mySheet1.Cells(i, 5).Width '图片的宽度设为单元格宽度Shp.Top = mySheet1.Cells(i, 5).Top '图片的位置为E列对应单元格到顶部的距离Shp.Left = mySheet1.Cells(i, 5).Left '图片的位置为E列对应单元格到左侧的距离NextApplication.ScreenUpdating = True '恢复更新显示End Sub

4、检查无误后，在VBE编辑器的功能区里面点击“运行”图标运行程序。

5、回到Sheet1工作表界面，将会看到图片已经自动排列到E列单元格上边。