SULAP EXCEL (Menghilangkan dan memunculkan Gambar)

SULAP? ................        
Ya... mengapa tidak.

Mau Tau Caranya ?........ silahkan ikuti cara berikut...langsung saja ya Sob....

• Insert sebuah atau beberapa gambar ke dalam Sheet.
• Tuliskan kata "hilang" di sel mana saja, lalu tekan Enter. maka Simsalabim.... Gambarnya akan hilang.
• Tuliskan kata "muncul" di sel mana saja, lalu tekan Enter. Maka Simsalabim.... Gambarnya muncul lagi.

dan Berikut Code Formula yang di Tulis 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Gambar As Object

On Error Resume Next

If Target.Count = 1 Then

If Target.Offset(-1, 0).Value = "Hilang" Or Target.Value = "Hilang" Then

For Each Gambar In ActiveSheet.Pictures

Gambar.Visible = False

Next Gambar

End If

If Target.Offset(-1, 0).Value = "Muncul" Or Target.Value = "Muncul" Then

For Each Gambar In ActiveSheet.Pictures

Gambar.Visible = True

Next Gambar

End If

End If

End Sub

• Simpan dalam format .xlsm atau .xls
• Workbook siap digunakan
• Jangan lupa untuk meng-Enable-kan Macro, pada saat membuka file ini.

Untuk Contoh Bisa di Download di sini   DOWNLOAD HERE