Excel VBA Insert Picture into Cell

[Jaye Cavallo]

I have been trying to insert a picture into a cell using VBA. I found this code on Google. I am using Excel 365. Can someone explain to me why I receive a syntax error with the following code?

Sub InsertImageIntoCell()

Dim imageURL As String

imageURL = "https://www.example.com/logo.png" ' Replace with your image URL

With ThisWorkbook.Worksheets("Sheet1") ' Change "Sheet1" to your desired sheet

.Range("A1").Value = "=IMAGE(""" & imageURL & "", 0)" ' Insert image in cell A1, fitting to cell

End With

End Sub

 

[Micron]

You are missing a nested double quote. Try
.Range("A1").Value = "=IMAGE(""" & imageURL & """, 0)"
Please post more than a few lines of code within code tags and maintain proper indentation (use vba button on posting toolbar to get the tags).

 

[Jaye Cavallo]

Sorry, but that is all the code I currently have within the tags. I am running it as a macro as a test before I build out what I want.

Thank you for your solution. The additional " does work in some instances. Now I have to figure out why I get a #value error for other https URL's that I assign to the imageURL variable.

 

[Micron]

that is all the code I currently have within the tags

Not sure what that means because you did not use code tags in your post. #Value error has various causes; incorrect data type probably includes empty strings or nulls (because a cell in the formula contains no value).

#VALUE error in Excel: causes and fixes

The tutorial explains all possible causes of the #VALUE error in Excel and simple techniques to troubleshoot and resolve it.

www.ablebits.com