Excel表格的图片自动排列

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

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

3、在模块代码框里边输入以下VBA程序代码。

Sub Shapes_Sort()

Dim i, Shp

On 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列对应单元格到左侧的距离

Next

Application.ScreenUpdating = True  '恢复更新显示

End Sub

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

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

1、Excel表格里面的图片自动排列方法总结：

1、打开Excel表格，按下【Alt+F11】组合键。

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

3、在模块代码框里边输入VBA程序代码。

4、在VBE编辑器的功能区里面点击“运行”图标。

5、回到Excel工作表界面，将会看到运行结果。