1、首先我们打开一个工作部，在工作表当中插入一些图片或者工作表当中本来就有一些图片
2、这是我们点击工作表上方功能区当中的开发工具，点击vb编辑器
3、然后在左上角的位置我们找到活动工作表，点击鼠标右键创建一个模块
4、然后在代码页面输入下方的代码，
5、Sub ????() Dim SH As Worksheet '螋觏钎厘????SH??????? Dim rg As Rang髫潋啜缅e '????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、代码当中可以看到代码的标注部分没有正确的显示，这个不耽误代码的正常运行运行完成之后，我们就可以得到整齐一致的图片了
