- Katılım
- 25 Ocak 2006
- Mesajlar
- 763
- Excel Vers. ve Dili
- 2019 tr
- Altın Üyelik Bitiş Tarihi
- 04-01-2024
aşağıdaki kodu excel 2019 da kullanabiliyorken excel 2016 da sorun çıkarıyor. ne yapmalıyım...
compile error:
can't find project or library
şeklinde uyarı veriyor. dim ler ile bazu yerleri tanımlamaya çalıştım ama beceremedim.
Kod:
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
can't find project or library
şeklinde uyarı veriyor. dim ler ile bazu yerleri tanımlamaya çalıştım ama beceremedim.