Hai Odhy,
Biasanya begini :
0. siapkan sebuah folder di drive selain drive C. Misal di drive D, diberi
nama myAPP
1. letakkan Excel file yang berisi VBA penampil image di dalam folder myAPP
tersebut.
2. buat sebuah folder dalam folder myAPP tersebut sebagai folder penyimpan
file image yang di-load oleh Excel file. Misal folder gambar diberi nama
images
3. copy seluruh file gambar yang dibutuhkan Excel tersebut ke dalam folder
bernama images yang dibuat di langkah 2 tadi.
4. Sesuaikan baris kode dalam Excel agar selalu mengambil gambar di path
Excel file folder images.
Kalau dengan baris kode Anda, kira-kira bunyinya begini :
ActiveSheet.Pictures.Insert(thisworkbook.Path & "\images\" &
Target.Value & ".jpg").Select
Zip folder myAPP dan kirim ke user lain bila perlu.
Regards,
Kid
On Thu, Mar 2, 2017 at 6:22 PM, Odhy [email protected]
[belajar-excel] <[email protected]> wrote:
>
>
> Dear Pak Toby,
> Apakah tidak ada script yang bisa saat lookup image kemudian ditambahkan
> script untuk mengcopy image yang sudan di insert tersebut.
> misalnya ilustrasi logika saya :
> Setelah image di insert : ActiveSheet.Pictures.Insert(Path & "C:\Katalog
> Material\03. dBase Foto Marketing\" & Target.Value & ".jpg").Select
>
> baru kemudian image tersebut di copy ( misal saya belum tau scriptsnya:
> "Activesheet.picture.target.value.copy"
> "activesheet.picture.target.value.paste".
>
> mudah-mudahan dimengerti maksud saya.
>
>
> Terima Kasih atas pencerahannya,
> Odhy.
>
>
> On Thursday, March 2, 2017 4:50 PM, "Toby kenzo [email protected]
> [belajar-excel]" <[email protected]> wrote:
>
>
>
> Dear Odhy,
>
> Sepertinya apa yang anda inginkan sulit di wujudkan, masalahnya bagaimana
> membuka file di drive C yang notabene drive pribadi bisa di buka oleh
> computer lain.
> Artiya kalo mau di buka bersama, harus di tempatkan di drive dimana semua
> computer bisa membukanya.
> Jangan pernah memaksakan jika memang sulit untuk di lakukan, Excel di buat
> untuk mempermudah bukan menyulitkan..
>
> TerimaKasih.
>
>
> Pada Kamis, 2 Maret 2017 14:27, "Odhy [email protected]
> [belajar-excel]" <[email protected]> menulis:
>
>
>
> Dear para master,
> Maksudku begini, database foto tetap di computer saya namun tetap bisa
> terlihat di computer lain.
> mungkin dengan cara menambahkan script agar padaa saat lookup foto
> sekaligus copy foto di file tersebut, jadi pada saat dibuka di computer
> lain tidak lookup / ngelink ke database foto.
>
> demikian atas bantuannya saya ucapkan banyak terima kasih.
>
> Terima Kasih atas pencerahannya, Odhy.
>
>
> On Thursday, March 2, 2017 12:00 PM, "hendrik karnadi
> [email protected] [belajar-excel]" <[email protected]>
> wrote:
>
>
>
> Dan extension filenya juga...
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
> Dear Odhy,
>
> Pastikan Path yang tertulis dalam script sesuai dengan path computer lain
> (C:\Katalog
> Material\03. dBase Foto Marketing\" & Target.Value & ".jpg")
>
> Terimakasih.
>
>
> Pada Kamis, 2 Maret 2017 11:34, "Odhy [email protected]
> [belajar-excel]" <[email protected]> menulis:
>
>
>
> Dear Master,
> untuk lookup foto ke folder sudah running, namun kendalanya saat saya mau
> kirim file tersebut atau buka di computer lain fotonya tidak kelihatan.
> nah bagaimana caranya / scriptnya biar foto tersebut biasa dibuka di
> computer lain.
>
> // script untuk lookup foto yang saya gunakan yaitu :
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
> If Target.Row Mod 100 = 0 Then Exit Sub
> On Error GoTo son
> ActiveSheet.Pictures.Insert(Path & "C:\Katalog Material\03. dBase Foto
> Marketing\" & Target.Value & ".jpg").Select
> Selection.Top = Target.Offset(0, 4).Top
> Selection.Left = Target.Offset(0, 4).Left
> Selection.ShapeRange.LockAspectRatio = msoFalse
> Selection.ShapeRange.Height = Target.Offset(0, 4).Height
> Selection.ShapeRange.Width = Target.Offset(0, 4).Width
> Target.Offset(1, 0).Select
> son:
> End Sub
>
> atas bantunnay saya ucapkan banyak-banyak terima kasih.
> Salam,
> Odhy.
>
>
>
>
>
>
>
>
>
>
