VBA を使用してWeb上の画像を結合したセルに貼り付け、整える方法について

Question

前提・実現したいこと

URLから画像を取ってきて結合されたセル内に張り付けて
結合セル内で画像がぴったりはまるようにしたい。

発生している問題・エラーメッセージ

エラーはないのですが、画像がすごく小さく張り付いてしまいます。。

該当のソースコード

Sub test2()
With Cells(65, i).MergeArea
Set objShape = ActiveSheet.Shapes.AddPicture( _
FileName:="http://～/○○.png", LinkToFile:=False, _
SaveWithDocument:=True, Left:=.Left, _
Top:=.Top, Width:=-1, Height:=-1)

        Cel_Top = .Top
        Cel_Left = .Left
        Cel_Width = .Width
        Cel_Height = .Height
        yohaku = 10

        With objShape
            .LockAspectRatio = msoTrue
            .ScaleHeight 1, msoTrue
            .ScaleWidth 1, msoTrue
    
            '画像サイズをセルの幅、高さに合わせる
            rx = Cel_Width / .Width
            ry = Cel_Height / .Height
    
            If rx > ry Then
                .Height = .Height * ry - yohaku
                .Width = .Width - yohaku
            Else
                .Height = .Height - yohaku
                .Width = .Width * rx - yohaku
            End If
            'セルの芯に
            .Left = Cel_Left + (Cel_Width - .Width) / 2
            .Top = Cel_Top + (Cel_Height - .Height) / 2
    
         End With
    End With

End Sub

試したこと

VBA初心者なのでネットからソースを引っ張ってきて書いています。。。

補足情報（FW/ツールのバージョンなど）

Win10、Excelは2010を利用しています。

Answer 1

これだと思います。
.LockAspectRatio = msoTrue
(下記へ修正)
.LockAspectRatio = msoFalse

Comments

[chisato3155]

返信ありがとうございます！こちらを記載いただいた通り修正し、yohakuを2にしたらうまくいきました！

Answer 2

余白が設定されているからではないでしょうか。
yohaku=10
を
yohaku=0
にしてみてはいかがでしょう。

Comments

[chisato3155]

返信ありがとうございます！yohakuを2にして、tosi様の記載で修正したらうまくいきました！