工欲善其事，必先利其器。专业的事情就应该用专业的工具，可以帮助我们做的又快又好。下面就详细的告诉小伙伴们，怎样让合并单元格当中的图片统一对齐？工具/原料more手机方法/步骤1/6分步阅读首先我们打开一个工作部，在工作表当中插入一些图片或者工作表当中本来就有一些图片2/6

这是我们点击工作表上方功能区当中的开发工具，点击vb编辑器

3/6然后在左上角的位置我们找到活动工作表，点击鼠标右键创建一个模块4/6

然后在代码页面输入下方的代码，

5/6

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 ?????????? ???????????????е???????????????End Sub

6/6

代码当中可以看到代码的标注部分没有正确的显示，这个不耽误代码的正常运行

运行完成之后，我们就可以得到整齐一致的图片了

注意事项

阁下若有所得，随手投上一票！ 汝之热心关注，吾之分享动力！