Menyembunyikan dan Menampilkan Tombol dan Gambar

Pada artikel kali ini kami akan sharring tentang cara menyembunyikan dan menampilkan tombol perintah baik melalui fasilitas Option Button, Shapes, Word Art dan lainnya. Selain itu kita juga bisa menampilkan dan menghiden gambar.

Artikel ini terinspirasi pada saat saya sedang membuat pembukuan tentang pajak. Karena kami tidak mempunyai ilmu dasar-dasar pemrograman, akhirnya kami mencoba search di google. Namun, artikel yang dibutuhkan tidak kunjung ketemu. Akhirnya saya mencoba sendiri membuat kode-kode VBA Macro dan melihat kode-kode sebelumnya sebagai referensi. Dan Alhamdulilah berhasil, walaupun mungkin ini tidak normal 100% namun bagi kami ini sudah memenuhi kebutuhan yang dibutuhkan dalam membuat administrasi tersebut.

Baiklah, kita lihat contoh dibawah ini :

Dalam hal ini saya menginginkan bahwa pada kondisi tertentu gambar atau tombol tersebut bisa hilang atau tampil kembali. Dan sebagai contoh, di sini saya ingin menghilangkan dan menampilkan gambar. Pada kolom C2 atau kolom C9 yang diberi warna kuning (lihat gambar diatas), apabila pada kolom tersebut angka 1 maka gambar akan tampil dan apabila pada kolom tersebut angka 2 maka gambar tersebut hilang.

Menyembunyikan dan Menampilkan Tombol dan Gambar

• Pertama-tama silahkan insert Option Button dan Insert Gambar atau photo. Untuk Option Button diberi nama picture (lihat name box pada gambar diatas) sedangkan untuk photo diberi nama picture 2
• Kemudian anda insert WordArt kemudian tuliskan “Test Opt Button” atau apa saja nantinya yang akan anda butuhkan. Kemudian klik kanan tulisan tersebut lalu pilih Assign Macro lalu klik “New”
• Lalu masukan rumus berikut :


Kode VBA Excel untuk Menyembunyikan dan Menampilkan Tombol

'https://baladaka.blogspot.com
'============================

Sub Rectangle1_Click()
    
    If Sheets("Sheet1").Range("C2") = 2 Then
    ActiveSheet.Shapes("picture").Visible = xlhiden
    End If

    If Sheets("Sheet1").Range("C2") = 1 Then
    ActiveSheet.Shapes("picture").Visible = True
    End If

End Sub

Catatan :

• Uraian rumus tersebut, mungkin seperti ini. Apabila Sheet1 Range C2 = 2 maka picture di hiden, apabila Sheet1 Range C2 = 1 maka pictue akan ditampilkan.
• Untuk membuat tombol tersebut bisa juga menggunakan Control button atau yang lainnya, terserah anda.
• Sekarang silahkan anda coba merubah angka 1 dan 2 lalu klik “Test Opt Button”

Sedangkan untuk gambar atau photo sama saja dan di sini saya coba tuliskan rumusnya

Kode VBA Excel untuk Menyembunyikan dan Menampilkan Gambar

'https://baladaka.blogspot.com
'============================

Sub Rectangle4_Click()
    If Sheets("Sheet1").Range("C9") = 2 Then
    ActiveSheet.Shapes("picture 2").Visible = xlhiden
    End If

    If Sheets("Sheet1").Range("C9") = 1 Then
    ActiveSheet.Shapes("picture 2").Visible = True
    End If

End Sub

Nah, sekarang silahkan dicoba-coba, mudah-mudahan ada manfaatnya.

Selamat Mencoba

Contoh File Menyembunyikan dan Menampilkan Tombol dan Gambar dengan VBA Macro

Link Alternatif

Jika File tidak ter-download otomatis, silahkan klik Link Alternatif dan lihat hasil download di folder Downloads