1、首先我们打开一个工作部，在工作表当中插入一些图片或者工作表当中本来就有一些图片
3、然后在左上角的位置我们找到活动工作表，点击鼠标右键创建一个模块
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
