resim çağırma

[millerblack]

Ben A1 hücresine çağıracağım resmin kodunu yazmak
B1 hücresinede koda karşılık gelen resmi getirmek
ve orada kalmasını istiyorum

buna göre bir örnek yazmanız mümkün olur mu
selamlar

 

[asi_kral]

Merhaba
Bunun için sizin örnek eklemeniz gerekmez miydi

 

[tauruz]

Yıllar içinde atılan cevaplara bir yenisini de ben ekleyeyim;
"Merhaba
Bunun için sizin örnek eklemeniz gerekmez miydi "
-Belki de arkadaşın örnek eklemesini gerektirecek karmaşık bir durum yoktur ortada.
-Problem 3 senedir çözülemediyse cevap atabilirim..Örnekli bir şekilde.

 

[Merhum İdris SERDAR]

Ben A1 hücresine çağıracağım resmin kodunu yazmak
B1 hücresinede koda karşılık gelen resmi getirmek
ve orada kalmasını istiyorum

buna göre bir örnek yazmanız mümkün olur mu
selamlar

.

Burada pek çok örnek var.

http://www.excel.web.tr/f136/resim-caoyrma-ornekleri-t127079.html

.

 

[HALILİBRAHIM]

Hocalar merhaba benim bir sorum olacak mümkünse resimlerimi excele kodla getirmeyi buldum evde 2007'de canavar gibi çalışıyor ama iş yerinde 2010 kullanıyoruz ondanmıdır bilmiyorum hocalar "C;\resimler" klasörüne resimleri attım hocalar kodlarla isimler aynı fakat picture ınsert özelliğini alamıyo diye bir hata alıyorum ve bazen hata gittiğinde resimlerdende sadece 11 tane getirebiliyor hocalar birde ben kodumu "c" sütununa yazıp resimin b sütununa gelmesini istiyorum yardım ederseniz çok sevinirim.

kod aşağıdaki gibidir

Sub Düğme3_Tıklat()
Dim a As Integer
Dim son As Integer
Dim ad As String
Dim yol As String

yol = "c:\resimler\"
son = Range("A" & Rows.Count).End(xlUp).Row
For a = 1 To son
ad = yol & Cells(a, 1) & ".jpg"
With ActiveSheet.Pictures.Insert(ad)
.Left = Cells(a, 2).Left
.Top = Cells(a, 2).Top
.ShapeRange.LockAspectRatio = True
.ShapeRange.Height = 50
End With
Rows(a).RowHeight = 50
Next a
MsgBox "İşlem tamamlandı", vbInformation, "T A M A M"
End Sub