Question

Excel表格中插入多张图片后怎么才能让图片自动在单元格中居中？

Answer 1

直接CTRL+A选中所有表格，单号点击水平居中即可批量居中

Answer 2

引用绿衣人敲门的回答：
步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住CTRL+A 即可全选表格中所有图片)

步骤二:按alt+F11,出现另外一个代码处理窗口,选中“插入-模块”

步骤三:在输入框中插入下列代码
Sub dq()
Dimshp AsShape
ForEachshp InActiveSheet.Shapes
shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left
shp.Top = (shp.TopLeftCell.Height - shp.Height) / 2 + shp.TopLeftCell.Top
Next
EndSub
步骤四:回到需要处理图片居中对齐的窗口
按住ALT +F8 执行宏dq 操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)

完成

Sub dq()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left
shp.Top = (shp.TopLeftCell.Height - shp.Height) / 2 + shp.TopLeftCell.Top
Next
End Sub