Does anyone have any suggestions on how to edit the following code to insert
more than 1 image?
If A1 = 1, then display image from ("C:\TempPic.JPG"), else
If A1 = 2, then display image from ("C:\TempPic2.JPG") else
display nothing.
Does anyone have any suggestions on how to do it for Excel 2003?
Thanks in advance for any suggestions
Eric

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPic As Object
If Target.Address = "$A$1" Then
If Range("A1") = 1 Then
Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic.JPG")
Else
Set myPic = ActiveSheet.Pictures(1)
myPic.Delete
End If
End If
End Sub

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPic As Object
If Target.Address = "$A$1" Then
On Error Resume Next
Set myPic = ActiveSheet.Pictures(1)
On Error GoTo 0
If Not myPic Is Nothing Then myPic.Delete

If Range("A1") = 1 Then
ActiveSheet.Pictures.Insert ("C:\TempPic.JPG")
Else
ActiveSheet.Pictures.Insert ("C:\TempPic2.JPG")
End If

End If
End Sub

--
Jacob


"Eric" wrote:

Does anyone have any suggestions on how to edit the following code to insert
more than 1 image?
If A1 = 1, then display image from ("C:\TempPic.JPG"), else
If A1 = 2, then display image from ("C:\TempPic2.JPG") else
display nothing.
Does anyone have any suggestions on how to do it for Excel 2003?
Thanks in advance for any suggestions
Eric

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPic As Object
If Target.Address = "$A$1" Then
If Range("A1") = 1 Then
Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic.JPG")
Else
Set myPic = ActiveSheet.Pictures(1)
myPic.Delete
End If
End If
End Sub

Thank you very much for suggestions
Do you have any suggestions on how to set the location to display image?
Thank you very much for suggestions
Eric

"Jacob Skaria" wrote:

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPic As Object
If Target.Address = "$A$1" Then
On Error Resume Next
Set myPic = ActiveSheet.Pictures(1)
On Error GoTo 0
If Not myPic Is Nothing Then myPic.Delete

If Range("A1") = 1 Then
ActiveSheet.Pictures.Insert ("C:\TempPic.JPG")
Else
ActiveSheet.Pictures.Insert ("C:\TempPic2.JPG")
End If

End If
End Sub

--
Jacob


"Eric" wrote:

Does anyone have any suggestions on how to edit the following code to insert
more than 1 image?
If A1 = 1, then display image from ("C:\TempPic.JPG"), else
If A1 = 2, then display image from ("C:\TempPic2.JPG") else
display nothing.
Does anyone have any suggestions on how to do it for Excel 2003?
Thanks in advance for any suggestions
Eric

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPic As Object
If Target.Address = "$A$1" Then
If Range("A1") = 1 Then
Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic.JPG")
Else
Set myPic = ActiveSheet.Pictures(1)
myPic.Delete
End If
End If
End Sub