1、首先我们打开一个工作部，在工作表当中插入一些图片或者工作表当中本来就有一些图片
2、这是我们点击工作表上方功能区当中的开发工具，点击vb编辑器
3、然后在左上角的位置我们找到活动工作表，点击鼠标右键创建一个模块
4、然后在代码页面输入下方的代码，
5、Sub ????()
Dim SH As Worksheet '????SH???????
Dim rg As Range '????rg??????
Dim shapeTemp As Shape '????rg???
Set SH = ActiveSheet '??????????
For Each shapeTemp In SH.Shapes '????????????????μ??????
shapeTemp.LoakAspectRatio = msoFalse '??????????????????????С
Set rg = shapeTemp.TopLeftCe11 '??????????????λ???ж??????λ??
If rg.MergeCe1ls = True Then '??????????????????????????
shapeTemp.Top = rg.MergeArea.Top + 1.5 '???????λ????????????????????1.5
shapeTemp.Left = rg.MergeArea.Left + 1.5 '?????λ???????????????????1. 5
'??????????????????????????-??
shapeTemp.Width = rg.Mergehrea.Width - 3 '??????????????????????-3 .
shapeTemp.Height = rg.MergeArea.Height - 3 '???????????????????????-3
Else '??????????????????λ?ò???????????????????????????
shapeTemp.Top = rg.Top + 1.5 '????λ??
shapeTemp.Left = r.gLeft + 1.5 '???λ??
shapeTemp.Width = rg.Width - 3 '???
shapeTemp.Heizht = rg.Heizht - 3 '???
'?????????????????- ????????????д??
End If '?????ж?
Next '??????????
'????????[ for each ]???????е???????????????
End Sub
6、代码当中可以看到代码的标注部分没有正确的显示，这个不耽误代码的正常运行
运行完成之后，我们就可以得到整齐一致的图片了
