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 -- sschroeder ------------------------------------------------------------------------ sschroeder's Profile: http://www.excelforum.com/member.php...o&userid=37241 View this thread: http://www.excelforum.com/showthread...hreadid=569566 |
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 |
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 |
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 |
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 |
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 |
Embed image in cell
Thank you Chuck, this will definately help, much appreciated.
|
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. |
All times are GMT +1. The time now is 01:29 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com