Resimli Organizasyon Şeması
Resimli Organizasyon Şeması
Personel resimlerini C:\Resimler klasörü altında Gif olarak ve personel adını almış dosyalar halinde koyunuz. Hasan, Orhan, Mete, Gül, Emel, Ayşe, Murat, Ahmet, Fatma, Osman, Sevgi, Arif, Arzu, Mine gibi.
- Dosya yolu C:\Resimler AB1 hücresine konulmuştur.
- Resimlerin geleceği hücreye; =Resim($AB$1&”\”&L7&”.Gif”;75;50) formülü girilmiştir. Resimler Jpg veya diğer resim dosyaları şeklinde olabilir. Ancak, dosyaların uzantısı neyse formüldeki Gif’in yerine yazılması gerekir. Ayrıca, formude görülen 75, ve 50 sayıları resmin boy ve enini ayarlar. Bu sayılar kodun opsiyonel olarak verilmiş sayılarla aynı olmalıdır.
- Resimlerin hücreye gelmesini sağlayan KTF’nin kodları aşağıdaki gibidir.
Function Resim(ByVal resad As String, Optional ByVal gen As Single = 75, _
Optional ByVal yuk As Single = 50)
Dim hcr As Range
Dim res As Object
Set hcr = Application.Caller
For Each res In hcr.Parent.Pictures
If res.TopLeftCell.Address = hcr.Address Then
res.Delete
Exit For
End If
Next
Set res = hcr.Parent.Pictures.Insert(resad)
With res
.Left = hcr.Left + 1
.Top = hcr.Top + 1
.Width = gen
.Height = yuk
End With
End Function
4. Adlar için Veri Doğrulama ve Ünvanlar için Düşeyara formülü kullanılmıştır.
Dosya:
Son Yorumlar