Personel Listesine Personel Resimlerini çağırma

Kanala Abone OL : https://bit.ly/2ZGHJhI "Kodlar açıklamanın altında " Personel Listesine Sicil Numarası verilerek kaydedilen resimleri çağırma Örneğin Ürün listenize ürün resimlerini çağırmak içinde kullanabilirsiniz. Umarım işinize yarar Başarılar dilerim. KOD : Option Explicit Private Sub CommandButton1_Click() Dim res As Picture Dim x As Long Dim ps As Long ps = Range("A20000").End(xlUp).Row For x = 2 To ps On Error Resume Next Range("F" & x).Select Set res = Me.Pictures.Insert(Range("G" & x).Value) res.Width = 150 ' BU RAKAMLARI İSTEĞE GÖRE DEĞİŞTİREBİLİRSİNİZ res.Height = 150 ' BU RAKAMLARI İSTEĞE GÖRE DEĞİŞTİREBİLİRSİNİZ Next Set res = Nothing Range("A1").Select MsgBox "Resimler getirildi" End Sub