cara menampilkan gambar

  1. 6 tahun lalu
    Di sunting 6 tahun lalu oleh Kislist

    Mohon bantuannya, bagaimana caranya untuk menampilkan gambar file yang kita simpan pada folder drive menggunakan macro.
    Berikut contoh form yang akan digunakan.

    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... ;)

  2. tghfox

    2 Des 2017 Terverifikasi Bekasi Barat + 579 Poin

    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

  3. Caton

    3 Des 2017 Terverifikasi Indonesia + 20.101 Poin

    @Tghfox:

    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...

    @Kislist:

    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...

    capture01.png

    Silahkan dicoba dan dimodifikasi kembali... ;)

  4. 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.

  5. izin gabung ya...

    Mas @caton,izin modif dikit filenya ya

    @Kislist .. coba periksa dan pelajari file terlampir

    Tampil-Gambar.xlsm

  6. @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.

  7. Caton

    7 Des 2017 Terverifikasi Jawaban Terpilih Indonesia + 20.101 Poin
    Di sunting 6 tahun lalu oleh Caton

    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... ;)

  8. 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.

  9. Caton

    11 Des 2017 Terverifikasi Indonesia + 20.101 Poin

    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... ;)

  10. Mas@Caton sangat membantu. kalau mau menampilkan form pada desktop atau di buat semacam shortcut bagaimana ?
    Maaf saya awam tentang Macro.

  11. Caton

    11 Des 2017 Terverifikasi Indonesia + 20.101 Poin

    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... ;)

  12. yang saya maksud form seperti gambar terlampir bisa tampil didesktop tanpa harus menampilkan excel filenya.

  13. Caton

    11 Des 2017 Terverifikasi Indonesia + 20.101 Poin
    Di sunting 6 tahun lalu oleh Caton

    Baris kode tersebut harus disusun pada modul mdlMain, bukan pada modul frmCariPhoto... :)

    Shoot008.png

    Demikian... ;)

  14. Mas@Caton bekerja dengan baik, terima kasih.
    Untuk saat ini cukup. ada plan untuk modif sedikit.
    Mohon bantuantuanya nanti.
    Terimaksih

  15. Caton

    11 Des 2017 Terverifikasi Indonesia + 20.101 Poin

    Sama-sama mas @Kislist ... Silahkan diskusikan kembali jika ada kendala atau masalah... ;)

  16. Mas@Caton , Untuk setting gambar biar tidak pecah/ zoom gabaimana ?

  17. 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.

  18. Caton

    11 Des 2017 Terverifikasi Indonesia + 20.101 Poin
    Di sunting 6 tahun lalu oleh Caton

    @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.

    Shoot009.png

    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... ;)

  19. Mas@Caton, Terimakasih working as well.

  20. 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 ?

  21. Newer ›
 

atau Mendaftar untuk ikut berdiskusi!