insert image URL images into CELLS

[excel_2009]

hi excel gurus,

I was wondering if it would be possible to insert image urls as images into cells in excel? if so how?

thank you

 

[excel_2009]

Hi Andrew,

Indeed it is

Thank you so much, as I've said before you truly are an asset to the excel community!!!!

 

[cchhaass]

Hi Andrew,

I'm new in VBA and I'm using Office 2011 of MAC. When I used your code


Sub Test()
Dim Rng As Range
Dim Cell As Range
Dim Pic As Picture
Application.ScreenUpdating = False
Set Rng = Range("D2:D" & Range("c" & Rows.Count).End(xlUp).Row)
For Each Cell In Rng
With Cell
Set Pic = .Parent.Pictures.Insert(.Value)
With .Offset(, -1)
Pic.Top = .Top
Pic.Left = .Left
Pic.Height = .Height
Pic.Width = .Width
End With
End With
Next Cell
Application.ScreenUpdating = True
End Sub

It appears highlighted the line:

Set Pic = .Parent.Pictures.Insert(.Value)

Maybe there is another formula for Office 2011?

We have 400 rows and in row C we have the url and we would like to show them on column D. Could you please help me???? One it works, do I have to setup the size of the image and the cell?

Thank you in advance!!!!!

 

[Andrew Poulsom]

What's in the cell? Is that a valid path to a picture? Can you insert a picture from a URL manually?

 

[cchhaass]

ups sorry, the is a column with many url of a picture. The url works fine and if you copy it to a browser, it shows a picture...

Manually I don't know neither the way to inser it from a url... If I go to insert picture there is no option to copy the url adress...

But as I have more than 400 rows, manually will be not a good solution...

 

[maxirk]

cchhaass, have you found the solution?

I have a column with image-url.
I want to render images instead of this urls in the same cells.

I googled a lot but I can't find any working macros..

 

[valenta79]

Maybe try:

Sub IMAGE()
    Dim Rng As Range
    Dim Cell As Range
    Dim Pic As Picture
    Application.ScreenUpdating = False
    Columns("J:J").ColumnWidth = 21.29
    Set Rng = Range("K2:K" & Range("k" & Rows.Count).End(xlUp).Row)
    For Each Cell In Rng
        With Cell
            On Error Resume Next
            Set Pic = .Parent.Pictures.Insert(.Value)
            If Err <> 0 Then
                Err.Clear
            Else
                With .Offset(, -1)
                    Pic.Top = .Top
                    Pic.Left = .Left
                    Pic.Height = .Height
                    Pic.Width = .Width
                End With
            End If
            On Error GoTo 0
        End With
    Next Cell
    Rows("2:11").RowHeight = 120
    Application.ScreenUpdating = True
End Sub

Hey Andrew,

This is pretty cool. How would you adjust this so that it would recalculate every time a specific cell changes? Let's say cell Z1 has a dropdown and I want my images to change accordingly only when that cell is hit. Can that be incorporate in the code? And second part of the question, right now when i rerun the code it keeps adding images on top of each other. Can this be adjusted so that 'old' image disappears and only the correct one shows up? So if I hit cell Z1 several times I would have only one image per cell.
Thanks so much.

 

[bjornhughes]

Hi Andrew I was just wondering if this technique can be applied to an .xls file created in open office / when using open office?

I am trying to achieve the same thing but each image url results in a download dialogue when visited in the browser (example: https://martinigrandprix.wufoo.eu/cabinet/z253rwr1ed6fmz/yXwuBeAmDWqww0=/competition.jpg)

Thanks in advance for any help you can offer.

 

[ARod87]

Yes, of course:

Sub Test()
    Dim Rng As Range
    Dim Cell As Range
    Dim Pic As Picture
    Application.ScreenUpdating = False
    Set Rng = Range("C1:C" & Range("c" & Rows.Count).End(xlUp).Row)
    For Each Cell In Rng
        With Cell
            Set Pic = .Parent.Pictures.Insert(.Value)
            With .Offset(, -1)
                Pic.Top = .Top
                Pic.Left = .Left
                Pic.Height = .Height
                Pic.Width = .Width
            End With
        End With
    Next Cell
    Application.ScreenUpdating = True
End Sub

Hi Andrew,

This works fantastically, thank you.

Is it possible to embed the images in excel rather than having them linked so that they could be viewed when working offline?

please see my current code Below:

Sub IMAGE()
Dim Rng As Range
Dim Cell As Range
Dim Pic As Picture
Application.ScreenUpdating = False

Set Rng = Range("C3:C" & Range("c" & Rows.Count).End(xlUp).Row)
For Each Cell In Rng
With Cell
On Error Resume Next
Set Pic = .Parent.Pictures.Insert(.Value)
If Err <> 0 Then
Err.Clear
Else
With .Offset(, 1)
Pic.Top = .Top + 5
Pic.Left = .Left + 5
Pic.Height = 10
Pic.Width = 65
End With
End If
On Error GoTo 0
End With
Next Cell
Rows("3:203").RowHeight = 75
Application.ScreenUpdating = True
End Sub

Regards

 

[Andrew Poulsom]

What version of Excel are you using? Maybe you can use AddPicture as in this link:

http://www.mrexcel.com/forum/excel-questions/727507-insert-product-images-excel-workbook.html

 

[ARod87]

What version of Excel are you using? Maybe you can use AddPicture as in this link:

http://www.mrexcel.com/forum/excel-questions/727507-insert-product-images-excel-workbook.html

Hi Andrew,

Thanks for your reply.

I am using Excel 2013.

I am trying to adapt the AddPicture to my code but not having much luck. (very new to VBA).

any help would be greatly appreciated.

Thanks