Image 如何将图片调整到单元格大小？

我复制这幅画。如何使用VBA将此图片调整为单元格大小？

使用此代码（Q相关）：

子副本（）
将sh设置为形状，将ws1设置为工作表，将ws2设置为工作表
设置ws1=工作表（“机械工”）
设置ws2=工作表（“字符”）
ws1.形状（“图片”）。复制
带ws2.范围（“A8”）.合并区域
巴斯特先生
设置sh=ws2.Shapes（ws2.Shapes.Count）“获取最后一个形状，即粘贴的图片
如果高度/高度<宽度/宽度，则
标准高度/标准高度，msoFalse
其他的
sh.刻度宽度/sh.宽度，msoFalse
如果结束
以
端接头

谢谢您的帮助。这是可行的，但当我合并单元格时就不行了。如何修改此代码？

Sub copy()
    Dim sh As Shape, ws1 As Worksheet, ws2 As Worksheet

    Set ws1 = Worksheets("mechanic")
    Set ws2 = Worksheets("character")

    ws1.Shapes("Picture").copy
    With ws2.Range("A8").MergeArea
        .PasteSpecial
        Set sh = ws2.Shapes(ws2.Shapes.Count) 'get last shape, i.e. pasted picture
        If .Height / sh.Height < .Width / sh.Width Then
            sh.ScaleHeight .Height / sh.Height, msoFalse
        Else
            sh.ScaleWidth .Width / sh.Width, msoFalse
        End If
    End With
End Sub