Closed Thread
Results 1 to 12 of 12

Embed image in cell

  1. #1
    Registered User
    Join Date
    08-08-2006
    Posts
    1

    Embed image in cell

    I have a dataset that includes the path and optionally an HTTPS URL to an image. Is it possible to embed this image in a cell?

    Short of that what might be some other options?

    Thank you

  2. #2
    CLR
    Guest

    RE: Embed image in cell

    You could insert the image into the Comment Box for that cell which would pop
    up whenever you mouseover the cell........

    Vaya con Dios,
    Chuck, CABGx3



    "sschroeder" wrote:

    >
    > I have a dataset that includes the path and optionally an HTTPS URL to
    > an image. Is it possible to embed this image in a cell?
    >
    > Short of that what might be some other options?
    >
    > Thank you
    >
    >
    > --
    > sschroeder
    > ------------------------------------------------------------------------
    > sschroeder's Profile: http://www.excelforum.com/member.php...o&userid=37241
    > View this thread: http://www.excelforum.com/showthread...hreadid=569566
    >
    >


  3. #3
    Zamdrist
    Guest

    Re: Embed image in cell

    CLR wrote:
    > You could insert the image into the Comment Box for that cell which would pop
    > up whenever you mouseover the cell........


    Yes, that would work for one, but how might I programmaticlly add
    comments for each row (undetermined number) and set the comment fill
    picture?

    Thanks


  4. #4
    CLR
    Guest

    Re: Embed image in cell

    My computer is having a brain-f**t so this might be sent twice, but I'm
    leaving right now and will check my files and respond tomorrow if no one else
    has.....gotta run now to get my Kitty from the Vet...........

    Vaya con Dios,
    Chuck, CABGx3


    "Zamdrist" wrote:

    > CLR wrote:
    > > You could insert the image into the Comment Box for that cell which would pop
    > > up whenever you mouseover the cell........

    >
    > Yes, that would work for one, but how might I programmaticlly add
    > comments for each row (undetermined number) and set the comment fill
    > picture?
    >
    > Thanks
    >
    >


  5. #5
    Zamdrist
    Guest

    Re: Embed image in cell

    Thanks CLR

    I figured out part of this:

    Set Cm = Ws.Range("E2").AddComment
    Cm.Shape.Fill.UserPicture Ws.Range("D2").Value

    That will add a comment, and set the Comment to the picture value.

    Only I need to zip down the rows, however many there may be and do the
    same for each. The number of rows is indeterminable.

    Forgive me as I'm not familar with the Excel object library.

    Thanks


  6. #6
    Zamdrist
    Guest

    Re: Embed image in cell

    Thanks CLR

    I figured out part of this:

    Set Cm = Ws.Range("E2").AddComment
    Cm.Shape.Fill.UserPicture Ws.Range("D2").Value

    That will add a comment, and set the Comment to the picture value.

    Only I need to zip down the rows, however many there may be and do the
    same for each. The number of rows is indeterminable.

    Forgive me as I'm not familar with the Excel object library.

    Thanks


  7. #7
    Zamdrist
    Guest

    Re: Embed image in cell

    Thanks CLR

    I figured out part of this:

    Set Cm = Ws.Range("E2").AddComment
    Cm.Shape.Fill.UserPicture Ws.Range("D2").Value

    That will add a comment, and set the Comment to the picture value.

    Only I need to zip down the rows, however many there may be and do the
    same for each. The number of rows is indeterminable.

    Forgive me as I'm not familar with the Excel object library.

    Thanks


  8. #8
    CLR
    Guest

    Re: Embed image in cell

    Ok, here's the code I have.....it's a crude accumulation of stuff that I got
    off the newsgroups, but it works. It plays off a list of hyperlinks created
    with Jim Cone's Add-in called ListFiles,(available at
    http://www.realezsites.com/bus/primi...e/products.php ) which
    interrogates a directory and makes a list of links in excel. Then this macro
    applys the comment boxes with pictures therein to each cell in the range.
    It may not work exactly the same in your application, but might light the way
    some and/or maybe your code could be worked in......


    Sub PicsToCommentBoxs()
    '================================================
    'This macro will process a list of path/filenames for image files starting
    'in cell B5, installing the image file from each cell into it's Comment Box.
    'Images may be viewed by mouseover.
    'Macro created 2/13/2006 by Chuck Roberts
    '================================================
    'This section sets the Range of cells to be processed, starting at B5, if
    there
    'are NO cells with a value, or one cell only (B5), or more than one.
    Dim rng As Range, cell As Range
    With ActiveSheet
    If Range("B6").Value <> "" Then
    Set rng = .Range(.Range("B5"), .Range("B5").End(xlDown))
    ElseIf Range("b5") <> "" Then
    Set rng = .Range("b5")
    Else
    End
    End If
    End With
    'This section runs for each cell in the above range that contains a value.
    For Each cell In rng
    cell.Select
    On Error Resume Next
    If Selection.Value <> "" Then
    Selection.AddComment
    Selection.Comment.Visible = False
    Selection.Comment.Text Text:=""
    Selection.Comment.Visible = True
    Selection.Comment.Shape.Select True

    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 150
    Selection.ShapeRange.Width = 150

    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.UserPicture ActiveCell.Value
    ActiveCell.Comment.Visible = False
    Else
    End
    End If
    Next
    End Sub
    hth
    Vaya con Dios,
    Chuck, CABGx3



    "Zamdrist" wrote:

    > Thanks CLR
    >
    > I figured out part of this:
    >
    > Set Cm = Ws.Range("E2").AddComment
    > Cm.Shape.Fill.UserPicture Ws.Range("D2").Value
    >
    > That will add a comment, and set the Comment to the picture value.
    >
    > Only I need to zip down the rows, however many there may be and do the
    > same for each. The number of rows is indeterminable.
    >
    > Forgive me as I'm not familar with the Excel object library.
    >
    > Thanks
    >
    >


  9. #9
    Zamdrist
    Guest

    Re: Embed image in cell

    Thank you Chuck, this will definately help, much appreciated.


  10. #10
    CLR
    Guest

    Re: Embed image in cell

    You're very welcome..........thanks for the feedback.

    Vaya con Dios,
    Chuck, CABGx3



    "Zamdrist" wrote:

    > Thank you Chuck, this will definately help, much appreciated.
    >
    >


  11. #11
    Registered User
    Join Date
    07-23-2006
    Posts
    2

    Re: Embed image in cell

    how do i pull images directly from the system path rather then entering them manually

  12. #12
    Forum Guru teylyn's Avatar
    Join Date
    10-28-2008
    Location
    New Zealand
    MS-Off Ver
    Excel 365 Insider Fast
    Posts
    11,287

    Re: Embed image in cell

    aalokajin, this is a three-year old thread. Please take a moment to read the forum rules, expecially rule #2 and then start your own thread.

    Thanks

Closed Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1