Try this:
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("B12")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
With Range("C12")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub
Make sure you change the formula in C12 to refer to the drop down list
in C11
And you'll have to do something to your lists so that the name for the
picture already showing (from one list selection) does not show up in
the other. This is because each picture can only be shown once. I
think you'll have to have 2 lists.
--
Cutter
------------------------------------------------------------------------
Cutter's Profile:
http://www.excelforum.com/member.php...fo&userid=9848
View this thread:
http://www.excelforum.com/showthread...hreadid=513797