This way is for a manual entry in cell A1 (not a formula in cell A1)

Put this event macro in the worksheet code area:

Private Sub Worksheet_Change(ByVal Target As Range)
Set t = Target
Set a1 = Range("A1")
If Intersect(a1, t) Is Nothing Then Exit Sub
If a1.Value = 1 Then
ActiveSheet.Shapes("Picture 1").Visible = True
Else
ActiveSheet.Shapes("Picture 1").Visible = False
End If
End Sub

--
Gary''s Student - gsnu200825


"Tushar" wrote:

HOW TO HIDE/SHOW PICTURE AS PER LOGIC ? SAY IF A CELL VALUE IS 1, THE PICTURE
WILL SHOW AND 0 FOR HIDING. THE PICTURE.SHOW/HIDE OF PICTURE WILL DEPEND ON
LOGIC OF A FORMULA OR CELL CONTENT ETC.