Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 4 of 4

Thread: lookup for a series of pictures

  1. #1
    New Member
    Join Date
    Mar 2002
    Posts
    22
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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?

  2. #2
    Board Regular
    Join Date
    Feb 2002
    Location
    Perth Australia
    Posts
    1,584
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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



  3. #3
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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 ]

  4. #4
    New Member
    Join Date
    Mar 2002
    Posts
    22
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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.

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •