Kodlarda Revize/Klasörden Resim Çekme

iplikci_80

Altın Üye
Altın Üye
Katılım
29 Kasım 2007
Mesajlar
902
Excel Vers. ve Dili
excel 2007
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.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
2,655
Excel Vers. ve Dili
Excel 2003-tr
Kodları sicilKartı sayfası kod kısmına koyun.
Sayfaya bir tane şekillerden dikdortgen ekleyın.
PerResim olarak isimlendirin.

Kod:
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
 

Ekli dosyalar

Üst