Converting A Image URL To Actual Image in Excel

[RyGUY1446]

How can I convert a Image URL in excel to an actual image? I'm looking to take a url in column A and show the image in column B but also only have the image be certain size?

I've tried this but kept getting an error.

"Dim url_column As Range
<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif;">Dim image_column As RangeSet url_column = Worksheets(1).UsedRange.Columns("A")Set image_column = Worksheets(1).UsedRange.Columns("B")Dim i As LongFor i = 1 To url_column.Cells.Count With image_column.Worksheet.Pictures.Insert(url_column.Cells(i).Value) .Left = image_column.Cells(i).Left .Top = image_column.Cells(i).Top image_column.Cells(i).EntireRow.RowHeight = .Height End WithNext"</code></pre>

 

[John_w]

Try this:

Sub InsImg()

    Dim URL As Range
        
    For Each URL In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        With URL.Parent.Pictures.Insert(URL.Value)
            .Left = URL.Offset(0, 1).Left
            .Top = URL.Offset(0, 1).Top
            URL.EntireRow.RowHeight = .Height
        End With
    Next

End Sub

If you got an error with your code, it helps if you tell us exactly what the error is and on which line it occurs.

Also, please put code within [ CODE] and [ /CODE] tags (without the spaces).

 

[ahobbs01]

I have images that are several different sizes. I used this code to see if it would extract the image in the next cell without changing the size of the image. It worked for some of the images but then errored out.

 

[Marius44]

HI
I think the suggestion for this line of code
For Each URL In Range("D2:D712", Cells(Rows.Count, "D").End(xlUp))
it must be changed so

For Each URL In Range("D2", Cells(Rows.Count, "D").End(xlUp))

HI,
Mario

 

[ahobbs01]

HI
I think the suggestion for this line of code
For Each URL In Range("D2:D712", Cells(Rows.Count, "D").End(xlUp))
it must be changed so

For Each URL In Range("D2", Cells(Rows.Count, "D").End(xlUp))

HI,
Mario

I am still getting the same error after making that change.

 

[Fluff]

Duplicate to: Converting a Image URL to Actual Image Size

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.