lookup for a series of pictures

[peter_wcx]

I need to do a lookup that will bring back a map. I have a clinic address on a page and I'd like a map to that address to appear below the address. Can Excel do this?

[Derek]

Hi
Not quite sure what you are trying to do.
If your map is a picture you could insert it into a cell comment so that it displayed when the cell was selected.

Insert a comment in the cell
Right mouse, Edit Comment
Doubleclick the border of the comment box
Format comment box opens
Select tab for Colors and Lines
Open drop down box under Color
Go to Fill Effects
Select tab for Picture
Choose your picture (map)
Click OK
You can also add coloured borders if you wish
Stretch your picture comment to desired size
Hide comment.

You might want to put something in the cell such as "click here to see map"

Hope this is of some help
regards
Derek

[Ivan F Moala]

On 2002-03-08 22:45, Derek wrote:
Hi
Not quite sure what you are trying to do.
If your map is a picture you could insert it into a cell comment so that it displayed when the cell was selected.

Derek thats a good idea....

If the idea is OK with Peter then he could
use this code to insert the pictures.

Sub Pict_Comments()
Dim HasCom
Dim Pict As String
Dim ImgFileFormat As String
Dim Ans

Set HasCom = ActiveCell.Comment
If Not HasCom Is Nothing Then ActiveCell.Comment.Delete
Set HasCom = Nothing

ImgFileFormat = _
"Image Files (*.bmp;*.gif;*.tif;*.jpg),*bmp;*gif;*.tif;*.jpg"

GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
'Note you can load in any nearly file format
If Pict = "False" Then End

Ans = MsgBox("Open : " & Pict, vbYesNo, "Use this Picture")
If Ans = vbNo Then GoTo GetPict

With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.Transparency = 0#
.Comment.Shape.Fill.UserPicture Pict
End With

End Sub

HTH

Ivan

[ This Message was edited by: Ivan F Moala on 2002-03-09 01:26 ]

[peter_wcx]

This question actually ties to the other 2 I posted... I recieved no reply to those.. I have a worksheet that we send to drug test labs. We fill in the store number in a cell. I use that number to do a lookup from another sheet(my data list) to get the address, hours open for business etc. I need to display a map to the location as well. I do appreciate the help. Keep it comiong. I'd also like to send the sheet only via a button.