Excel VBA高级编程:实现excel中图片的显示和隐藏

高级编程:实现excel中图片的显示和隐藏

请问怎么用VBA编程实现excel中图片的显示和隐藏？
我想在excel中放一张图片，然后单击某一个按钮的时候，让他显示；不需要显示的时候，单击某一个按钮，让他隐藏。这个功能怎么实现啊？


Sub 隐藏()
    ActiveSheet.Shapes("Picture 1").Visible = False
End Sub
Sub 显示()
    ActiveSheet.Shapes("Picture 1").Visible = True
End Sub