excel hücresine gizli resim ekleme

[volkankoyuncu]

Bir hücreye gizli resim eklemek istiyorum ve ayrıca o hücrede bir stok kodu var stok kodunun üzerine gelince resim çıksın...böyle birşey yapılabiliyor mu ?

 

[usta07]

Bir hücreye gizli resim eklemek istiyorum ve ayrıca o hücrede bir stok kodu var stok kodunun üzerine gelince resim çıksın...böyle birşey yapılabiliyor mu ?

Konu ile ilgili Çok sayıda örnek var. Özellikle Sayın Halit Özdemir'in işinizi görecek bir kodu aşağıdadır. Stok kodlarınız b sutunda 3. satırdan itibaren yazılı , resimleriniz de dosyanız ile aynı yerde Resimler isimli klasörün içinde varsayımı ile.. iyi çalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("b").ClearComments
If Intersect(Target, [b3:b4500]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
dosyaadi = ThisWorkbook.Path & "\Resimler\" & Target.Value & ".jpg"
With Cells(Target.Row, "b")
.AddComment
.Comment.Visible = True
.Comment.Shape.Select True
If CreateObject("Scripting.FileSystemObject").FileExists(dosyaadi) = True Then
Selection.ShapeRange.Fill.UserPicture dosyaadi
Selection.Height = 250 'yukseklik
Selection.Width = 200 'genişlik
Target.Select
Else
.Comment.Visible = False
End If
End With
End Sub