ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   How do I link a picture to a text cell (https://www.excelbanter.com/excel-discussion-misc-queries/32456-how-do-i-link-picture-text-cell.html)

Chippy_Mark

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

Any help would be much appreciated.

Mark...... :)


--
Chippy_Mark
------------------------------------------------------------------------
Chippy_Mark's Profile: http://www.excelforum.com/member.php...o&userid=24629
View this thread: http://www.excelforum.com/showthread...hreadid=382183


JE McGimpsey

Take a look he

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


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


--
Chippy_Mark
------------------------------------------------------------------------
Chippy_Mark's Profile: http://www.excelforum.com/member.php...o&userid=24629
View this thread: http://www.excelforum.com/showthread...hreadid=382183


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

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...


--
Chippy_Mark
------------------------------------------------------------------------
Chippy_Mark's Profile: http://www.excelforum.com/member.php...o&userid=24629
View this thread: http://www.excelforum.com/showthread...hreadid=382183



All times are GMT +1. The time now is 12:03 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com