Mohon bantuannya, bagaimana caranya untuk menampilkan gambar file yang kita simpan pada folder drive menggunakan macro.
Berikut contoh form yang akan digunakan.
Mohon bantuannya, bagaimana caranya untuk menampilkan gambar file yang kita simpan pada folder drive menggunakan macro.
Berikut contoh form yang akan digunakan.
kalo tidak pakai form bisa spt ini, tinggal di modif (disesuikan)
http://tghfox.blogspot.co.id/2012/09/macroexcel-input-edit-hapus-dan.html
kalo tidak salah dulu pernah ada yang post juga , mgkn bisa colek @Caton
Sebelum singgah ke forum ini, saya sudah mampir duluan ke blog mas @Tghfox, dan tautan di atas merupakan salah satu artikel yang sempat saya pelajari dan saya coba. Thanks before and after... :) Ditunggu solusi-solusi dari mas @Tghfox...
Tautan dari mas @Tghfox itu bisa dipelajari lebih lanjut. Dengan sedikit modifikasi, bisa diterapkan ke dalam UserForm. Di forum ini (sebagaimana kata mas @Tghfox di atas), sepertinya pernah ada diskusi serupa... atau beberapa yang saya tahu (namun bukan ke UserForm):
[1] Insert Gambar Dengan klik Image (Active Xcontrol)
[2] Insert Foto & Panggil Foto Dinamis
[3] Masukkan Gambar Otomatis Dengan Rumus
[4] Menampilkan Photo Dengan Macro
Selain itu, berikut saya lampirkan contoh macro yang pernah saya gunakan, dengan sedikit penyesuaian. Tinggal dimodifikasi kembali agar dapat digunakan untuk proses pencarian gambar (jika tidak salah, sepertinya mas @Kislist ingin membuat Form untuk pencarian gambar ya). Penampakannya...
Silahkan dicoba dan dimodifikasi kembali... ;)
Terimakasih untuk @tghfog and @Caton, sangat membantu. tapi yang saya maksud adalah, dengan memasukan nama file pada kolom kemudian akan muncul preview setelah kita klik tonbol Browse.
Bisa dibilang seperti kita Browse akan muncul sesuai dengan key word yang kita masukan dan akan tampil apa bila key word yang kita ketik ada dalam file yang kita simpan.
izin gabung ya...
Mas @caton,izin modif dikit filenya ya
@Kislist .. coba periksa dan pelajari file terlampir
@Mas Fujiansayah92, terimakasih sudah ikut membantu. seperti itu yang saya maksud. kita cari berdasrkan file name. disini kita masih mencari lokasi dulu secara manual. Mohon bantuanya bagaimana cara tanpa harus mencari lokasi filenya. cukup masukkan file name saja, dalam artian target sudah kita set lokasi penyimpanan filenya.
Terimakasih sebelumnya.
Terlampir contoh macro yang bisa digunakan. Masukkan nama file secara lengkap atau parsial, lalu tekan tombol Enter atau klik tombol disebelahnya. Pencarian file pada folder atau lokasi yang ditentukan pada variabel m_sFilePath berdasarkan pola:
*Nama_file*.jpg
Jika ada satu atau lebih nama file dengan pola yang sesuai, hanya file pertama yang akan ditampilkan. Demikian... ;)
Mas@Caton, Masih bingung.
" m_sFilePath " Berarti target file apakah berada di drive M ?
Kalau saya mau merubah pada drive "E" code mana saja yang perlu dirubah.
Kalau boleh minta No Whatsapp Mas@Caton.
Terimakaih sebelumnya.
Bukan mas... :) Itu kebiasaan saya saja, untuk menandai lingkup (scope) dari sebuah variabel. Biasanya, saya menambahkan prefiks m_ jika sebuah variabel lingkupnya untuk sebuah modul, dan tanpa prefiks jika lingkupnya hanya sebatas prosedur (Sub atau Function). Sama saja dengan variable m_sFileName...
Jadi, variabel m_sFilePath bisa diisi dengan nama folder pada drive manapun. Jadi mau dibuat:
... m_sFilePath = ThisWorkbook.Path & Chr$(92) ...
atau
m_sFilePath = "E:\Gambarku\"
ya bisa saja... ;)
Mas@Caton sangat membantu. kalau mau menampilkan form pada desktop atau di buat semacam shortcut bagaimana ?
Maaf saya awam tentang Macro.
Buat shortcut ke nama file Excel-nya saja. Agar hanya form-nya saja yang ditampilkan, dapat dibuat kode berikut, misalnya pada modul mdlMain yang sudah ada:
Option Explicit Public Sub Auto_Open() Application.Visible = False frmCariPhoto.Show vbModal Application.Visible = True ThisWorkbook.Close SaveChanges:=True End Sub
Semoga sesuai... ;)
yang saya maksud form seperti gambar terlampir bisa tampil didesktop tanpa harus menampilkan excel filenya.
Baris kode tersebut harus disusun pada modul mdlMain, bukan pada modul frmCariPhoto... :)
Demikian... ;)
Mas@Caton bekerja dengan baik, terima kasih.
Untuk saat ini cukup. ada plan untuk modif sedikit.
Mohon bantuantuanya nanti.
Terimaksih
Sama-sama mas @Kislist ... Silahkan diskusikan kembali jika ada kendala atau masalah... ;)
Mas@Caton , Untuk setting gambar biar tidak pecah/ zoom gabaimana ?
Mas@Caton , file sudah bisa tampil tanpa excel, bagaimana kalau mau edit file excelnya, karena saat di open langsung terbuka aplikasi dan tidak file excel lagi.
@Kislist Mas@Caton , Untuk setting gambar biar tidak pecah/ zoom gabaimana ?
Saya juga belum tahu, kecuali resolusi gambar yang akan ditampilkan harus lebih besar dari dimensi kontrol Image yang digunakan.
@Kislist Mas@Caton , file sudah bisa tampil tanpa excel, bagaimana kalau mau edit file excelnya, karena saat di open langsung terbuka aplikasi dan tidak file excel lagi.
Tekan tombol CTRL+PAUSE/BREAK untuk menghentikan proses sementara (Pause) dan menampilkan jendela VBE. Untuk benar-benar menghentikan proses (Stop), pada jendela VBE klik tombol Reset.
Trik lainnya, buka file lain dahulu, kemudian buka jendela VBE (VBE = VB Editor). Lalu jalankan file Tampil-Gambar 2.xlsm tersebut. Kemudian berpindah ke jendela VBE lalu klik tombol Reset. Untuk menampilkan jendela Excel, tampilkan Immediate Window (CTRL+G) dan ketik baris kode berikut:
Application.Visible = True
Lalu tekan tombol Enter
Demikian... ;)
Mas@Caton, Terimakasih working as well.
Mas@Caton, Mohon pencerahannya.
Saat saya jalankan macronya tidak dapat membuka file excel lainya atau excel file yang sudah terbuka akan close sendiri saat saya jalankan program macro ini.
Bagaimana caranya untuk mengatasi masalah tersebut ?