Inserting an Online Picture to Excel with VBA

by

This is an almost identical solution that I posted about a month ago:

Excel VBA Insert Images From Image Name in Column

Sub InsertPic()
Dim pic As String 'file path of pic
Dim myPicture As Picture 'embedded pic
Dim rng As Range 'range over which we will iterate
Dim cl As Range 'iterator

Set rng = Range("B1:B7")  '<~~ Modify this range as needed. Assumes image link URL in column A.
For Each cl In rng
pic = cl.Offset(0, -1)

    Set myPicture = ActiveSheet.Pictures.Insert(pic)
    '
    'you can play with this to manipulate the size & position of the picture.
    ' currently this shrinks the picture to fit inside the cell.
    With myPicture
        .ShapeRange.LockAspectRatio = msoFalse
        .Width = cl.Width
        .Height = cl.Height
        .Top = Rows(cl.Row).Top
        .Left = Columns(cl.Column).Left
    End With
    '

 Next

 End Sub

More Related Contents:

  1. Loop through files in a folder using VBA?
  2. How to error handle 1004 Error with WorksheetFunction.VLookup?
  3. How can Excel VBA open file using default application
  4. How to compare two entire rows in a sheet
  5. Run same excel macro on multiple excel files
  6. how to detect whether VBA excel found something?
  7. VBA : save a file with UTF-8 without BOM
  8. Excel tab sheet names vs. Visual Basic sheet names
  9. Saving a Excel File into .txt format without quotes
  10. Excel VBA “Method ‘Document’ of object ‘IWebBrowser2’ failed”
  11. Determine if cell contains data validation
  12. VBA – Range to jpg picture
  13. Fastest way to delete rows which cannot be grabbed with SpecialCells
  14. Combine multiple Excel workbooks into a single workbook
  15. Excel Macro, inserting internationally valid formula during run-time
  16. Sheet protection: UserInterFaceOnly gone
  17. VBScript – How to make program wait until process has finished?
  18. Making VBA Form TextBox accept Numbers only (including +, – and .)
  19. VBA Convert date to week number
  20. vba paste not working
  21. mac excel vba loop : from list & then export as pdf
  22. Can Advanced Filter criteria be in the VBA rather than a range?
  23. How do I avoid run-time error when a worksheet is protected in MS-Excel?
  24. In Excel VBA, what is the way to check if the web page is fully loaded?
  25. Excel Useform: How to hide application but have icon in the taskbar
  26. Reading Web Pages using Excel VBA
  27. Excel VBA: auto click and open file from website
  28. How do I get a list of unique values from a range in Excel VBA?
  29. How to get selected value in multicolumn listbox
  30. Query my excel worksheet with VBA

Leave a Comment