Kodlarda Revize/Klasörden Resim Çekme

[iplikci_80]

GİRİŞ Sayfası A2 hücresine girdiğimiz sicil ile SİCİL KARTI I7:K13 hücresine resim klasöründeki girdimiz sicile ait fotoğrafı getirdiğimiz GİRİŞ sayfasındaki mevcut kodu B1 hücresindeki firma logosunun silinmesini önleyecek şekilde revize edilmesi hususunda yardımlarınızı rica ediyorum.

 

[veyselemre]

Kodları sicilKartı sayfası kod kısmına koyun.
Sayfaya bir tane şekillerden dikdortgen ekleyın.
PerResim olarak isimlendirin.

Private Sub Worksheet_Activate()

    yol = ActiveWorkbook.Path & "\"
    firmaLogo = yol & "1.jpg"
    personelResim = yol & [GİRİŞ!A2] & ".jpg"

    If Len(Dir(personelResim)) = 0 Then personelResim = firmaLogo

    ActiveSheet.Shapes.Range(Array("PerResim")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture personelResim
        .TextureTile = msoFalse
    End With
    [B5].Select

End Sub

 

[iplikci_80]

Sayın veyselemre ilginize çok teşekkür ederim.