How do I link a picture to a text cell

Hi everyone, I must warn you all I am fairly new to excel so please reply in terms a novice would be able to understand, Thanks
This is what I am trying to achieve: I have a list box with 10 possible selections, lets say for example that 'Apple' was a selection, If I choose 'Apple' I would like a picture of an apple to appear in a different cell range, and if I was to choose 'Pear' I would like the 'Apple' picture to be replaced by a 'Pear' picture. Does this make sense ?

Any help would be much appreciated.

Mark......

Take a look here:

http://www.mcgimpsey.com/excel/lookuppics.html

Since you're new to XL, you may want to look at David McRitchie's
"Getting Started with Macros":

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In article <[email protected]>,
Chippy_Mark <[email protected]>
wrote:

> Hi everyone, I must warn you all I am fairly new to excel so please
> reply in terms a novice would be able to understand, Thanks
> This is what I am trying to achieve: I have a list box with 10 possible
> selections, lets say for example that 'Apple' was a selection, If I
> choose 'Apple' I would like a picture of an apple to appear in a
> different cell range, and if I was to choose 'Pear' I would like the
> 'Apple' picture to be replaced by a 'Pear' picture. Does this make
> sense ?

Thanks for the help JE Mc Gimpsey, the sample program I downloaded is exactly what I am looking for. It took me a while to get my page sorted because I had pictures on there that I needed to keep. However with the use of Macro's I managed to get it sorted.

Many Many thanks..


Mark........

Not sure if this thread will get read again, but I was a little hasty in saying I managed to get this option to work.
I seem to be able to link some drawings but some just wont play fair.

MY list is:
MSE'S Picture 4
BACK-UPS Picture 6
V-RINGS Picture 96
BANDSEAL Picture 97
ENERCAPS Picture 98
VALVE SEAT Picture 99
BEARINGS Picture 100

Picture 4 & 6 works fine the others throw the following Error:
Runtime error '13':
Type mismatch.
I have even had picture 99 the same as Picture 4 and still 99 did not work

If I choose Debug it points me to the 'Next oPic' in the following Code.
I can not see where I am going wrong. Any ideas anybody ??


Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("F10")
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

Thanks again in advance

Mark...