New Ganti-Ganti Foto Pakai Macro VBA

Menjawab Pertanyaan diGroup Faceboook Excel Indonesia User Group tentang Gonta Ganti Foto...
Pertama Harus ada Folder Fotonya Fotonya Juga harus Ada isinya. . .Buat Datanya Nama Foto Harus sama dengan Nama Foto diFolder Foto. . .Nah..Lo...Bingung ga....
Enggak Lah Pastinya....Untuk Pecinta VBA Heheee...Kalo Saya Masih Pemula Perlu Belajar Terus....Lanjut.......Tambahkan Embed : Image1 atau Control ActiveX Kemudian ComboBox yang Form Control ya Bukan ActiveX. . .Ya Udah tinggal Koneksi Datanya aja. . .Format Controlnya diatur sesuai data. . .Klik Kanan Pada ComboBox nya Pilih Assign Macro Nah Muncul Tuh Lembar VBE nya Kalo ga mau Nulis Bisa Copas disini
'---------------------------------------
'Coded By Afe
'Ganti-Ganti Foto With VBA
'Semarang, 19 Mei 2016
'http://afe.belajarexcel.org/
'---------------------------------------
Sub DropDown1_Change()
Dim path As String, NamaFoto As String
Dim c As Range
On Error GoTo Err
Set c = Range("A2:A6").Find(Range("F1").Value, LookAt:=xlWhole)
NamaFoto = c.Offset(0, 1).Value
path = ThisWorkbook.path & "\" & "Foto\" & NamaFoto & ".jpg"
Sheet1.Image1.Picture = LoadPicture(path)
Exit Sub
Err:
Sheet1.Image1.Picture = LoadPicture(ThisWorkbook.path & "\Foto\Gambar Kosong.jpg")
End Sub


Mudahkan....Selesai tinggal dijalankan, , Jika Masih Bingung saya Sertakan File Jadinya. . .
Silahkan diambil disini Download File




Salam
~Afe~