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

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

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

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

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

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

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

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

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

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

Vaya con Dios,
Chuck, CABGx3



"Zamdrist" wrote:

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

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