怎样让合并单元格当中的图片统一对齐？

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、代码当中可以看到代码的标注部分没有正确的显示，这个不耽误代码的正常运行

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