Mogens
If you place a macro in the "ThisWorkbook" object (in VBA) you can accomplish this task quite easily:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Variable = Range("A1"

.Value
Select Case Variable
Case Is = 1
Worksheets("Sheet1"

.Shapes("Object 1"

.Visible = True
Worksheets("Sheet1"

.Shapes("Object 2"

.Visible = False
Case Is = 2
Worksheets("Sheet1"

.Shapes("Object 1"

.Visible = False
Worksheets("Sheet1"

.Shapes("Object 2"

.Visible = True
End Select
End Sub
When you change the value in cell A1, the picture corresponding to your entry will appear (enter 1 and "object 1" appears etc.). Other than that, I'm really not sure how to make your pictures appear and disappear.
Hope this helps!
jproj