1、选中需要批量居中的图片(随便选中一张图片,然后使用快捷键:按住CTRL+A ,即可全选表格中所有图片)。
2、使用快捷键Alt+F11,出现另外一个代码处理窗口,选中“插入-模块”。
3、在输入框中插入如图中相关代码。
4、回到需要处理图片居中对齐的窗口,使用快捷键:按住Alt+F8,执行宏dq 操作。
1、首先将图片插入到excel表格里面,然后将全部的照片都选中。
2、选中之后,按Alt+F11组合键,将代码窗口调出来,并点击此窗口里面的插入-模块。
3、接着在模块里面将下面的代码输进去:
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
4、输入代码之后,就回到执行图片居中的对话窗口中,按Alt+F8组合键进行宏操作即可,这样就可以将图片居中了。
具体步骤如下:
步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住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 操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)
完成
步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住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 操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)
完成
Excel小课堂:怎么把图片批量放格子中间,三个要求完美搞定