Excelde Resim Getirme ve Taşınabilmeli

[efem67]

Değerli Yöneticiler ve Dostlarım;
Öncelikle Yakında Gireceğimiz Yeni Yılınızı En İçtenlikle Kutlarım.

Beni Problemim ek dosyada ilettiğim excel dosyasında ilgili alana resim getirememe, getirilecek olan resimin Taşınabilmesi gerekmekte, Düşey ara ile gelen bilgiler doğrultusunda gelen her yeni resim bir öncekini değiştirmeli yani üst üste gelmemeli. Ebadınıda ayarlayabilme imkanı olmalı.
İvedilikle Yardımlarınızı Bekliyorum
Saygılarımla;

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.


http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-rnek-dosya-t22790.html


.

 

[efem67]

Gönderdiklerinizi inceledim;
bazı eklemeler yaptım ancak resim yan tarafa geliyor istediğim bölgeye yerleştiremedim.
Sizden Ricam Kodu inceleyip düzenleme yapabilirmisiniz.
Teşekkürler

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [R14:R14]) Is Nothing Then Exit Sub
Dim p As Object, t As Double, l As Double, w As Double, h As Double
ResimDosya = "C:\Users\HP\Desktop\dosya\Foto" & "\" & Target.Value & ".jpg"
'ResimDosya = "C:\Users\HP\Desktop\dosya\Foto" & "\" & Target.Offset(0, 1).Value & ".jpg"
If Dir(ResimDosya) = "" Then Exit Sub
Set p = ActiveSheet.Pictures.Insert(ResimDosya)
With Cells(Target.Row, Target.Column - 2)
t = .Top
l = .Left
w = .Offset(0, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 0).Top - .Top
End With
With p
.Top = t
.Left = l
.Width = w
.Height = h
End With
Set p = Nothing
End Sub


Resimler küçük ve bir sola gidiyor..excel dosyasındaki koda bakabilirmisiniz....