Please Help! Trying to take an image URL and have the image show up in Excel

If you have a valid url, I could test it. The problem comes in resizing the image shape/picture. It would be best to at least download the image file and then use WIA to get dimensions so you can size your cells and shapes accordingly. 3rd party software can be shelled to get picture file dimensions and set size dimensions.

To get you started:

Please Login or Register  to view this content.

Hi Kenneth, the URLs that I provided are valid URLs from LinkedIn, I would imagine that they would be all the same size. Thanks for responding!!!

Valid for you maybe, not for me. Give it a shot and see if it works for you. You will have to play with the dimensions to get them set as you like.

Hi Kenneth I am sorry the URL isn't correct, this is the correct URL https://media.licdn.com/mpr/mpr/shri...a3/2ab00ef.jpg

Before I show you, in the Visual Basic Editor (VBE), set the View to show the Immediate window. Select a picture that was inserted and then size width and height as you like manually. With the picture selected, run this code. Note the dimensions shown in the Immediate Window as adjust range and picture heights and widths accordingly.

Please Login or Register  to view this content.

Adjust as needed.

Please Login or Register  to view this content.

Hi Kenneth, again thank you so much for everything.
Not sure if it did anything and not sure if I did it correctly, you mention that I show the immediate window, is that just the excel spreadsheet that has my information on it like URL? I do that, I formatted the picture size and kept the window selected. I then opened up VBE and ran the code and nothing happened. Prior to this I adjusted the .ShapeRange.Height to 50# and kept .ShapeRange.Width to 50# and this brought my picture to a good height and width. Could this be the cause why the most recent code isn't working? Thanks

Picture.png
Hi Kenneth,

Not sure if I am understanding where to put the code, this is what I have so far and this is giving me the desired result (I tried to upload a picture), also the picture size is perfect I am using a .ShapeRange.Height of 40# and a .ShapeRange.Width of 40# (this Aspect should always work because the picture sizes while different should always stay the same). Now I want to be able to get the image to appear for every URL. I can manually run the code for each URL but this would take forever to do working with a few hundred or more people.
Here is what I have so Far


Sub Test_InserPicPath()
InsertPicPath Range("B1"), "https://media.licdn.com/mpr/mpr/shrinknp_400_400/p/5/005/079/2a3/2ab00ef.jpg"
End Sub

Sub InsertPicPath(r As Range, fPath As String)
Dim pic As Object

Set pic = ActiveSheet.Pictures.Insert(fPath)
With pic
.Top = r.Top
.Left = r.Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 40#
.ShapeRange.Width = 40#
.ShapeRange.Rotation = 0#
End With
End Sub

Sorry I posted the picture twice by accident, the code should actually be the following, I left the B2 in there because I manually did the next person's URL. Not sure if it makes a difference


Sub Test_InserPicPath()
InsertPicPath Range("B1"), "https://media.licdn.com/mpr/mpr/shrinknp_400_400/p/5/005/079/2a3/2ab00ef.jpg"
End Sub

Sub InsertPicPath(r As Range, fPath As String)
Dim pic As Object

Set pic = ActiveSheet.Pictures.Insert(fPath)
With pic
.Top = r.Top
.Left = r.Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 40#
.ShapeRange.Width = 40#
.ShapeRange.Rotation = 0#
End With
End Sub

Hi Ron, can I just copy and paste your data in to my VBA of my spreadsheet, for some reason it isn't allowing me to run it? Thanks

Follow Ron's short instructions for inserting a Module from the VBE or see the link that I posted.

Of course if you attach a file, we can better test it for you. You may have a blank entry that needs to be handled. Click the Go Advanced button in lower right of a reply and click the paperclip icon on the toolbar to browse to your file to attach. That is often the best way to get on target help.