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

 

[Andrew Poulsom]

What did you try exactly?

 

[ARod87]

What did you try exactly?

Hi Andrew,

This is what I have so far. It works if I set rng as a single cell but I cant get it to continue down to the next cell.

Sub IMAGE()
Dim Rng As Range
Dim Cell As Range
Dim ws As Worksheet
Dim s As Shape
Set ws = ActiveSheet
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 s = ws.Shapes.AddPicture(Rng, False, True, 280, 10, 70, 70)
If Err <> 0 Then
Err.Clear
Else
End If
On Error GoTo 0
End With
Next Cell
Rows("3:203").RowHeight = 75
Application.ScreenUpdating = True
End Sub

Thanks again

 

[Andrew Poulsom]

Does this work for you?

Set s = ws.Shapes.AddPicture(Cell.Value, False, True, Cell.Offset(, -1).Left, Cell.Offset(, -1).Top, Cell.Offset(, -1).Width, Cell.Offset(, -1).Height)

 

[ARod87]

Does this work for you?

Set s = ws.Shapes.AddPicture(Cell.Value, False, True, Cell.Offset(, -1).Left, Cell.Offset(, -1).Top, Cell.Offset(, -1).Width, Cell.Offset(, -1).Height)

Hi Andrew,

That works perfectly! Thanks you very much.

final code for anyone else who needs it.

Sub IMAGE()
    Dim Rng As Range
    Dim Cell As Range
    Dim ws As Worksheet
    Dim s As Shape
    Set ws = ActiveSheet
    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 s = ws.Shapes.AddPicture(Cell.Value, False, True, Cell.Offset(, 1).Left, Cell.Offset(, 1).Top, Cell.Offset(, 1).Height, Cell.Offset(, 1).Width)
            
            If Err <> 0 Then
                Err.Clear
            Else
            With .Offset(, 1)
                    s.Top = .Top + 5
                    s.Left = .Left + 5
                    s.Height = 65
                    s.Width = 67
                    End With
            End If
            On Error GoTo 0
        End With
    Next Cell
   
    Rows("3:203").RowHeight = 75
    Application.ScreenUpdating = True
End Sub

 

[davy917]

Hi Andrew,

That works perfectly! Thanks you very much.

final code for anyone else who needs it.

Sub IMAGE()
    Dim Rng As Range
    Dim Cell As Range
    Dim ws As Worksheet
    Dim s As Shape
    Set ws = ActiveSheet
    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 s = ws.Shapes.AddPicture(Cell.Value, False, True, Cell.Offset(, 1).Left, Cell.Offset(, 1).Top, Cell.Offset(, 1).Height, Cell.Offset(, 1).Width)
            
            If Err <> 0 Then
                Err.Clear
            Else
            With .Offset(, 1)
                    s.Top = .Top + 5
                    s.Left = .Left + 5
                    s.Height = 65
                    s.Width = 67
                    End With
            End If
            On Error GoTo 0
        End With
    Next Cell
   
    Rows("3:203").RowHeight = 75
    Application.ScreenUpdating = True
End Sub

This code is working great for me.. One question tho.

Is it possible to make it so that the column is dynamic? Perhaps looking for a match on the header name? I'm asking because users will be able to pull reports any way they want, so the URL column will be different depending on how it's pulled.

 

[pgujju143]

Hi,

this is possible to work above code in excel 2007 i need also.

but i want addition on this i have URL column A, column C, column E,
and want to images column B, column D, column

My URL Like this http://d3w0fztyp9j74f.cloudfront.net/img/p/1/0/8/5/2/5/7/1085257.jpg

<colgroup><col></colgroup><tbody>
</tbody>