resim çağırma hakkında

[mubabacan]

Resim çağırmak için forumdan aldığım aşağıdaki kodu kullanıyorum ama resim istediğim hücrede değil sayfanın baş köşesinde çıkıyor. nerede hata yapıyorum yardımcı olurmusunuz lütfen. d22 de gözükmesi lazım ama a 3 gibi biryerlerde gözüküyor.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.DrawingObjects.Delete

Range("d22").Select
resimadi = LoadPicture("")
resimadi = "d120.jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\resim\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 68 'yükseklik
Selection.ShapeRange.Width = 97 'genişlik
Selection.ShapeRange.Rotation = 0#
Range("b22").Select

End Sub

 

[muygun]

Merhaba;

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.DrawingObjects.Delete
Range("d22").Select
resimadi = LoadPicture("")
resimadi = Range("d120").Text & ".jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\resim\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 68 'yükseklik
Selection.ShapeRange.Width = 97 'genişlik
Selection.ShapeRange.Rotation = 0#
Range("b22").Select
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[mubabacan]

ilginize teşekkür ederim muygun bey ama yine aynı şey oldu resim hep aynı yerde çıkıyor.
resimadi = Range("d120").Text & ".jpg" bu d120 hücresinin içeriğinin sonuna jpg uzantısı eklemek anlamına gelmiyormu. benim isteğim resmin çıkacağı hücreyi belirlemek bunu çözemedim.

 

[ZorBey_]

İnceleyiniz.
http://www.excel.web.tr/f14/dosyadan-resim-caoyrma-t138640.html#post751555

 

[mubabacan]

teşekkür ederim zor bey onuda denedim ama yine aynı şey resim hep aynı yerde çıkıyor resmin yerini değiştiremiyorum. neden kaynaklanır sürümden falan olabilirmi.

 

[muygun]

Merhaba;
Bu dosyada D120 adresine resim adı yazarak deneyin.
İyi çalışmalar.

 

[mubabacan]

yine aynı sonuç resim olarak ekledim m uygun bey

 

[ZorBey_]

Denermisiniz.

 

[mubabacan]

yine hüsran zorbey çok ilginç neden böyle yapıyor.

 

[ZorBey_]

Bu dosyayı denermisiniz.