vba怎樣設置圖片顯示與隱藏？

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Target.Address = "$A$1" Then Exit Sub

If Target = 0 Then

ActiveSheet.Shapes.Range(Array("圖片 2")).Visible = msoFalse

ElseIf Target = 1 Then

ActiveSheet.Shapes.Range(Array("圖片 2")).Visible = msoTrue

End If

End Sub

代碼貼在本表的代碼窗中，不是模塊中。圖片 2的名稱請按實際名稱修改，選中圖片，看下地址欄中顯示的名稱是啥就改成啥，比如”圖片 10”