Çalışma Sayfasına Resim Ekle - Microsoft Excel

Dosyanın sol ve üst köşelerine sıfır boşluk olacak şekilde resim eklemeye yarıyor.

Option Explicit

Sub CalismaSayfasinaResimEkle()
    Dim dosya As Variant
    
    dosya = Application.GetOpenFilename
    If dosya = False Then Exit Sub
    
    ActiveSheet.Pictures.Insert(dosya).Select

    With Selection
        .Top = Range("A1").Top
        .Left = Range("A1").Left
    End With
End Sub