Resimli Organizasyon Şeması

Resimli Organizasyon Şeması

AÇIKLAMA

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.

  1. Dosya yolu C:\Resimler AB1 hücresine konulmuştur.
  2. 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.
  3. 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

  1. Adlar için Düşeyara formülü kullanılmıştır.

org

 

Dosya:

Org2

 

 

You may also like...

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>