在表格中插入图片,怎么让图片在表格中居中
发布网友
发布时间：2022-05-01 21:07
共1个回答
热心网友
时间：2022-06-16 17:14
即可全选表格中所有图片)
步骤二:按alt+F一一,出现另外一个代码处理窗口,选中“插入-模块”
步骤三:在输入框中插入下列代码
Sub dq()
Dimshp AsShape
ForEachshp InActiveSheet.Shapes
shp.Left = (shp.TopLeftCell.Width - shp.Width) / 二 + shp.TopLeftCell.Left
shp.Top = (shp.TopLeftCell.Height - shp.Height) / 二 + shp.TopLeftCell.Top
Next
EndSub
步骤四:回到需要处理图片居中对齐的窗口
按住ALT
+F吧
执行宏dq
操作。(图片较多的话可能需要稍微等待一两分钟,之后所有被选中的图片就都整整齐齐的对齐啦。)
完
