How do I link a picture to a text cell

C

Chippy_Mark

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 ? :confused:

Any help would be much appreciated.

Mark...... :)
 
C

Chippy_Mark

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........ :) :) :)
 
C

Chippy_Mark

Not sure if this thread will get read again, but I was a little hasty i
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 no
work :confused:

If I choose Debug it points me to the 'Next oPic' in the followin
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..
 
Top