Excel中将所有图片在单元格居中并固定大小

最新推荐文章于 2023-11-29 14:39:11 发布

透流亚

最新推荐文章于 2023-11-29 14:39:11 发布

阅读量4.6k

点赞数 3

1.本代码来源于博客内几位大佬代码并结合自己实际应用而成，分享给有相同工作需要的朋友
2.效果展示
未排序前
在这里插入图片描述
3.宏代码

Sub dq() 
Dim shp As Shape
ActiveSheet.Shapes.Range(Array("Picture 1")).Select'选择某一图片
ActiveSheet.Shapes.SelectAll'选择图片
Selection.ShapeRange.LockAspectRatio = msoFalse'取消图片纵横比锁定模式
Selection.ShapeRange.Height = 90'定义图片高度，可根据表格大小自定修改
Selection.ShapeRange.Width = 147’定义图片宽度，可根据表格大小自定修改
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