Excel 2007 : test if picture exists on sheet

Another way:

  Dim shp As Shape

  On Error Resume Next
  Set shp = ActiveSheet.Shapes("myPicture")
  On Error GoTo 0

  If shp Is Nothing Then
    ' it doesn't exist
  Else
    ' it does
  End If

... or

  Dim pic As Picture

  On Error Resume Next
  Set pic = ActiveSheet.Pictures("myPicture")
  On Error GoTo 0

  If pic Is Nothing Then
    ' it doesn't exist
  Else
    ' it does
  End If