Mr.Kid Saya masih belum pham untuk pemasangan fotonya dan mengganti nama file
yang ada dicell f23, soalnya nama file fotonya sama dengan nama order
tersebut...
Sementara Untuk ambil data dari database saya gunakan ini saya letakkan pada
event Worksheet_Change
On Error GoTo GbKosong
Range("F7").Select
Application.ScreenUpdating = False
NamaData = Range("F7")
Files = ActiveWorkbook.Path & "\Photo\" & NamaData & ".jpg" '
Image1.Picture = LoadPicture(Files)
Application.ScreenUpdating = True
Exit Sub
GbKosong:
Image1.Picture = Image2.Picture
End Sub
Terima kasih Mr,Kid saya masih nyoba-nyoba terus...
Semoga Berhasil...
Hehehe
Thanks,B'Regards
-Agunk-
