Personel dosyasına resmini görüntüleme

[ktansel]

İyi günler arkadaşlar,
Ekteki gibi bir personel dosyasında personelin isminin üzerine gittiğimizde veya isme tıkladığımızda açılır pencere olarak resminin gelmesini istiyoruz bunu nasıl yapabiliriz teşekkürler.

 

[asi_kral]

İyi günler arkadaşlar,
Ekteki gibi bir personel dosyasında personelin isminin üzerine gittiğimizde veya isme tıkladığımızda açılır pencere olarak resminin gelmesini istiyoruz bunu nasıl yapabiliriz teşekkürler.

Merhaba
Personel resimleri nerede ben göremedim de

 

[oaltin]

Excell de Resim ekleme

Arkadaşım ben ekteki xls.dosyası ile işimi görmüştüm umarım seninde işine yarar.İyi çalışmalar.

 

[ktansel]

Merhaba
Personel resimleri nerede ben göremedim de

ilginiz için teşekkürler personel resimleri excel dosyasının bulunduğu klasörde veya başka bir yerdeki klasörde olabilir. uzantısı ise fark etmez.

 

[ktansel]

oaltin arkadaşım sanada teşekkürederim

 

[Merhum İdris SERDAR]

İyi günler arkadaşlar,
Ekteki gibi bir personel dosyasında personelin isminin üzerine gittiğimizde veya isme tıkladığımızda açılır pencere olarak resminin gelmesini istiyoruz bunu nasıl yapabiliriz teşekkürler.

.


Burada oldukça çok örnek var.

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


.

 

[halit3]

Kodu sayfanın kod bölümüne koyun dosyanın hemen yanında (Resimler)klasörü olmalı ce c sutünundaki değerlerden resim dosyası usantılarıda jpg olmalı mause ile c sutündaki herhangibir isme tıklayınca resim gelecektir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("c").ClearComments
If Intersect(Target, [c3:c500]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
dosyaadi = ThisWorkbook.Path & "\Resimler\" & Target.Value & ".jpg"
With Cells(Target.Row, "c")
.AddComment
.Comment.Visible = True
.Comment.Shape.Select True
If CreateObject("Scripting.FileSystemObject").FileExists(dosyaadi) = True Then
Selection.ShapeRange.Fill.UserPicture dosyaadi
Selection.Height = 100 'yuk
Selection.Width = 100 'gen
Target.Select
Else
.Comment.Visible = False
End If
End With
End Sub

 

[ktansel]

teşekkür ederim deneyeceğim