这是【Excel 教程系列第 7 篇】,如果觉得有用的话,欢迎关注专栏。
Excel 本身没有图片居中的函数,但我们又想把每张图片居中显示在单元格,一张一张的手动去拖,既费时效果也不好,那如何做呢?
第一步: 选中需要批量居中的图片(先选中一张图片,然后按住 Ctrl+A,即可全选表格内所有图片) 第二步: 按住 Alt+F11,会弹出一个代码处理窗口,然后点击“插入→模块”
第三步: 在输入框中粘贴下列代码
代码如下
Sub ImageAlignment()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
Range(shp.TopLeftCell.Areas(1).Item(1).Address).MergeArea
shp.Left = (.Width - shp.Width) / 2 + .Left
shp.Top = (.Height - shp.Height) / 2 + .Top
End With
Next
End Sub
提示:如果复制后每行前面出现多个问号,把所有问号删掉即可。 然后按下 Ctrl+S 保存代码,如果提示 无法在未启用的工作簿中保存以下功能 字样,点击“是”即可。
第四步:回到 Excel 窗口 按住 Alt +F8 执行宏 ImageAlignment 操作。 效果图如下所示
图片较多的话可能需要稍微等待一两分钟,图片越多,等待时间越长,之后所有被选中的图片就会被居中对齐了,
版本:Microsoft Office 2016
你的问题得到解决了吗?欢迎在评论区留言。
赠人玫瑰,手有余香,如果觉得文章不错,希望可以给个一键三连,感谢。
结束语 技术是一点一点积累的,大神也不是一天就可以达到的。原地不动就是退步,所以每天进步一点点。 最后,附上一句格言:"好学若饥,谦卑若愚",望共勉。