Sub 画像を挿入する()
    
    画像 = ThisWorkbook.Path & "\サンプル画像.jpg"
    
    With ActiveSheet.Pictures.Insert(画像)
        .Top = Range("A1").Top '左上の場所
        .Left = Range("A1").Left '左の場所
        .Width = Range("A1:B3").Width '幅
        .Height = Range("A1:B3").Height '高さ
        .Name = "付けたい画像名" '名前
    End With

End Sub