Belli bir hücredeki ismi ile aynı adı taşıyan resim dosyasını çağırmak amacıyla net üzerinde yaptığım küçük bir araştırma sonucu "=resimal(a1)" fonksiyonunu getiren aşağıdaki koda ulaştım.
Function ResimAl(hucre As Range)
If ActiveSheet.Shapes.Count > 0 Then ActiveSheet.Shapes(1).Delete
ActiveSheet.Shapes.AddPicture "D:\resimlerim\" & hucre & ".gif", True, True, 200, 0, 100, 100
End Function
Yalnız bu kod ile birden fazla hücreye formül atandığında birbirinden bağımsız şekilde çalışmamaktadır. Örnek vermek gerekirse; b1 ve b3 hücrelerinde formül atağında (=resimal(a1) ve resimal(a3)) bu iki formül neticesi birbiri ile aynı olacak şekilde çalışmaktadır. a1 veya b1 hücresindeki veri değiştiğinde iki farklı resim birbirinden bağımsız olarak excel tablosunda yer almamaktadır.
Resimal fonksiyonunun birden fazla hücrede birbirinden etkilenmeyerek bağımsız şekilde çalışmasına imkan verecek ilgili kodu ilave bir kod oluşturulabilinir mi?
Yardımlarınız için şimdiden teşekkür ederim.. Saygılarımla...
Function ResimAl(hucre As Range)
If ActiveSheet.Shapes.Count > 0 Then ActiveSheet.Shapes(1).Delete
ActiveSheet.Shapes.AddPicture "D:\resimlerim\" & hucre & ".gif", True, True, 200, 0, 100, 100
End Function
Yalnız bu kod ile birden fazla hücreye formül atandığında birbirinden bağımsız şekilde çalışmamaktadır. Örnek vermek gerekirse; b1 ve b3 hücrelerinde formül atağında (=resimal(a1) ve resimal(a3)) bu iki formül neticesi birbiri ile aynı olacak şekilde çalışmaktadır. a1 veya b1 hücresindeki veri değiştiğinde iki farklı resim birbirinden bağımsız olarak excel tablosunda yer almamaktadır.
Resimal fonksiyonunun birden fazla hücrede birbirinden etkilenmeyerek bağımsız şekilde çalışmasına imkan verecek ilgili kodu ilave bir kod oluşturulabilinir mi?
Yardımlarınız için şimdiden teşekkür ederim.. Saygılarımla...