Run-Time error '-2147467259 (80004005)': Method 'InsertPictureInCell' of object 'Range' failed

[PopeScooby]

I need help solving the following error, "Run-Time error '-2147467259 (80004005)': Method 'InsertPictureInCell' of object 'Range' failed", and was hoping someone here could help. I have a program in Visual Studio that is opening an Excel Template, adding data, and then running some very simple VBA code in template's Module1. The VBA code is as follows...

Sub CellImage_Load(ImgCell, ImgPath)

Range(ImgCell).Select
Range(ImgCell).InsertPictureInCell (ImgPath)

End Sub

everything works fine until the line, "Range(ImgCell).InsertPictureInCell (ImgPath)", which produces the referenced error.

If I debug the error and try to run the code it will continue to error, however if I manually load one of the images and then re-test the same piece of code on a the same or a different row, it works fine. Hoping for any insight someone might be able to supply.

 

[PopeScooby]

Just wanted to add this to my question if it helps.
It is easy to replicate this error if it helps. Just create a new workbook, add a module and the below code and replace "C:\Path To Image\Image.jpg" with a valid path to an image...

Sub CellImage_Load(ImgCell, ImgPath)

Range(ImgCell).Select
Range(ImgCell).InsertPictureInCell ImgPath

End Sub

Sub Test()

Module1.CellImage_Load "B16", "C:\Path To Image\Image.jpg"

End Sub

Try Running the Test() sub and it will error. Select any cell, then manually use from the ribbon Insert/Pictures/Place In Cell/This Device ... and select an image. After the image loads try the Test() sub again and it will work fine.

 

[NdNoviceHlp]

Hi *PopeScooby. Maybe trial being specific with your code....

Public Sub CellImage_Load(ImgCell As Range, ImgPath As String)
'Range(ImgCell).Select
Sheets("Sheet1").Range(ImgCell).InsertPictureInCell ImgPath
End Sub

Sub Test()
'Module1.CellImage_Load Range(B16), "C:\Path To Image\Image.jpg"
Call CellImage_Load(Range(B16), "C:\Path To Image\Image.jpg")
End Sub

HTH. Dave

 

[PopeScooby]

Hi *PopeScooby. Maybe trial being specific with your code....

Public Sub CellImage_Load(ImgCell As Range, ImgPath As String)
'Range(ImgCell).Select
Sheets("Sheet1").Range(ImgCell).InsertPictureInCell ImgPath
End Sub

Sub Test()
'Module1.CellImage_Load Range(B16), "C:\Path To Image\Image.jpg"
Call CellImage_Load(Range(B16), "C:\Path To Image\Image.jpg")
End Sub

HTH. Dave

The InsertPictureInCell method only works if you select the cell.