Question

excel中如何将文件夹中的图片按照图片文件名批量插入到合并的单元格中，并自适应合并单元格的大小？

如题
excel中如何将文件夹中的图片按照图片文件名批量插入到合并的单元格中，并自适应合并单元格的大小？
已有一个宏控件，可以在单元格中批量插入图片。

Sub insertPIC()

' Dir函数批量获取指定目录下所有文件名和内容
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
Dim MR As Range
For Each MR In Selection
If Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" Then
MR.Select
ML = MR.Left
MT = MR.Top
MW = MR.Width
MH = MR.Height
ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
Selection.ShapeRange.Fill.UserPicture _
ActiveWorkbook.Path & "\" & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片

End If
Next
Set MR = Nothing

Application.ScreenUpdating = True '开启屏幕更新

End Sub

这个VBA代码可以实现在单个单元格中插入图片，但是在合并的单元格中，就只能插入到合并后的第一行（图片被压扁，如下图所示）
有什么办法可以让图片自动适合所插入合并单元格的大小（不论单元格由几个合并的）？？？

请高手赐教，并留下完成的VBA代码，感激涕零！！！~~~

Answer 1

应该是单元格行高和图片高度的单位不一样

Answer 2

之前做过你要的效果

Answer 3

我关注下你的，你要是弄明白了，我也学习下