发布网友 发布时间:2022-02-23 10:06
共7个回答
热心网友 时间:2022-02-23 11:35
步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住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 操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)
完成
热心网友 时间:2022-02-23 12:53
答案来自其他网友提供,但我亲自测试过热心网友 时间:2022-02-23 14:28
点击图片,鼠标右键-设置图片格式-属性-点选“大小和位置随单元格而变”热心网友 时间:2022-02-23 16:19
先把单元格格式设置为居中,然后在插入图,就好了!追问不可以的。是插入图片
热心网友 时间:2022-02-23 18:27
直接CTRL+A选中所有表格,单号点击水平居中即可批量居中
热心网友 时间:2022-02-23 20:52
Alt+A 选中全部图片,然后点居中追问不可以的。是插入图片
热心网友 时间:2022-02-23 23:33
Sub dq()