resim eklemede sorun

[vabime]

Tüm sayfalarda arama yaptım ama ilgili olanı bulamadım çünkü örneklerde tek resim geliyor.
A sütunundaki satırlara yazdığım resim adını (resim adı ile sütuna yazdığım aynısı) C:\Resim klasöründen bularak bitişigindeki B sütünunadaki hücre içini doldurarak (hücreyi genişletip daraltınca resimde daralıp büyüyecek) yapıştıracak ve o hücrede bulunan eski resmi silecek

İlgili formu bularak sorunu çözdüm

 

[bayrak55]

resim eklemeyle ilgili sorununuzu nasıl çözdünüz. yardımcı olabilirseniz sevinirim. örnekli olursa sevinirim.

 

[vabime]

resim eklemeyle ilgili sorununuzu nasıl çözdünüz. yardımcı olabilirseniz sevinirim. örnekli olursa sevinirim.

Birinci çözüm nesneler resim getirmek
LoadPicture("c:/resim/" & Cells(a, "a") & ".jpg") resimlerin bulunduğu yolu yazın


Sub resimlerial()
For a = 2 To [a65536].End(3).Row
ActiveSheet.Shapes("Image" & a - 1).OLEFormat.Object.Object.Picture = LoadPicture("c:/resim/" & Cells(a, "a") & ".jpg")
Next
End Sub

ikinci çözum hücreye çift tıklatınca içine açıklama ekleyip resimi getirme

'Açıklama ve içine resim ekleme ölçülendirme
'
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Cancel = True
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture "\\Server\Photo\Resimler\" & ActiveCell & ".jpg"
ActiveCell.Comment.Visible = False
Selection.Comment.Shape.Height = 70
Selection.Comment.Shape.Width = 60
End Sub

 

[bayrak55]

resim ekleme

Yardımlarınız için teşekkür ederim. Yalnız ben kodlar konusunda oldukça yetersiz olduğum için sanırım uygulayamadım. gönderdiğim dosya üzerinde uygulayabilirseniz sevinirim. örnekte "NO" hücresine numara girildiğinde aynı numaralı jpeg resmi "RESİM" hücresine eklemesini istiyorum.