w = ActiveCell.MergeArea.Width '获取单元格宽度 h = ActiveCell.MergeArea.Height '获取单元格高度 l = ActiveCell.Left '获取单位格左侧位置 t = ActiveCell.Top '获取单位格上侧位置
ActiveSheet.Paste '粘贴图片 With Selection.ShapeRange .Left = l + 2 '调整图片左侧位置 .Top = t + 2 '调整图片上侧位置 .Width = w - 5 '调整图片宽度 End With
If Selection.ShapeRange.Height < h - 5 Then '当图片宽度小于单位元格宽度时 Selection.ShapeRange.Top = t + (h - Selection.ShapeRange.Height) / 2 '图片上下居中放单元格内 Else '当图片宽度天于单位元格宽度时 Selection.ShapeRange.Height = h - 5 '调整图片高度 Selection.ShapeRange.Left = l + (w - Selection.ShapeRange.Width) / 2 '图片左右居中放单元格内 End If Selection.Placement = xlMoveAndSize '定义图片大小位置随单元格变化而变化