klasörden resim ekleme makrosu verdiyon farklılığı sorunu

[euphrates55]

aşağıdaki kodu excel 2019 da kullanabiliyorken excel 2016 da sorun çıkarıyor. ne yapmalıyım...

Sub seçili_hücreye_resim_ekle()
dosya = Application.GetOpenFilename("All Files (*.*),*.*.")
If dosya = False Then
MsgBox "Veri alınacak dosyayı seçmediniz.", vbInformation, "DİKKAT"
Exit Sub
Else
End If
Set alan = Range("k7")
For Each resimm In ActiveSheet.Pictures
If Not Intersect(resimm.TopLeftCell, alan) Is Nothing Then
resimm.Delete
End If
Next
Set alan = Nothing
Cells(7, "k").Select
Set Adres = Range(ActiveWindow.RangeSelection.Address)
ActiveSheet.Pictures.Insert(dosya).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Top = Adres.Top + 2
Selection.Left = Adres.Left + 2
Selection.ShapeRange.Height = Adres.Height - 3
Selection.ShapeRange.Width = Adres.Width - 3
Cells(1, 1).Select
End Sub

compile error:
can't find project or library
şeklinde uyarı veriyor. dim ler ile bazu yerleri tanımlamaya çalıştım ama beceremedim.

 

[euphrates55]

sanırım sorun vba daki başvuru kütüphanesinde kayıp olan bir dosyaydı. tikini kaldırınca çözüldü fakat bunu her excel dosyasından tekrar silmem gerekiyor. bir kerede halletmenin yolunu arıyorum. bulursam onu da yazacağım. kendime cevap vermeye çalışacağım.