How to get images to appear in Excel given image url

by 
Dim url_column As Range
Dim image_column As Range

Set url_column = Worksheets(1).UsedRange.Columns("A")
Set image_column = Worksheets(1).UsedRange.Columns("B")

Dim i As Long
For 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 With

Next

As Excel behaviour has apparently changed over years, you might want to specify more parameters to the Insert call explicitly:

For people landing here. Different versions of Excel handle this request differently, Excel 2007 will insert the picture as an object, ie embed it in the workbook. Excel 2010 will insert it as a link, which is bad times if you plan on sending it to anyone. You need to change the insert to specify that it is embedded: Insert(Filename:= <path>, LinkToFile:= False, SaveWithDocument:= True)

More Related Contents:

  1. How can I URL encode a string in Excel VBA?
  2. SumIf using Excel VBA
  3. How can I call a macro which contains a loop but only run one iteration of that loop?
  4. Convert matrix to 3-column table (‘reverse pivot’, ‘unpivot’, ‘flatten’, ‘normalize’)
  5. How can I find last row that contains data in a specific column?
  6. Copy from one workbook and paste into another
  7. Read an Excel file directly from a R script
  8. Open Excel file for reading with VBA without display
  9. Last non-empty cell in a column
  10. Excel VBA App stops spontaneously with message “Code execution has been halted”
  11. How to return the number of dimensions of a (Variant) variable passed to it in VBA [duplicate]
  12. How to remove all non alphanumeric characters from a string except period and space in excel?
  13. Find last used cell in Excel VBA
  14. Retrieving the COM class factory for component failed
  15. Does Dir() make any guarantee on the order of files returned?
  16. Call a Sub with a String
  17. How to clear memory to prevent “out of memory error” in excel vba?
  18. Assign on-click VBA function to a dynamically created button on Excel Userform
  19. PowerQuery: How can I concatenate grouped values?
  20. Using a wildcard to open an excel workbook
  21. Excel: Searching for multiple terms in a cell
  22. Excel macro -Split comma separated entries to new rows [duplicate]
  23. Get text from clipboard using GetText – avoid error on empty clipboard
  24. Benchmarking VBA Code
  25. Display milliseconds in Excel
  26. VBA editor auto-deletes spaces at the ends of lines
  27. Select entire column in table using Excel VBA
  28. Application.Quit command not closing the entire Excel Application
  29. Trying to open the workbook in separate instance
  30. Function Overloading and UDF in Excel VBA

Leave a Comment