Cutting and pasting inserted image

[mikeymay]

I am using the following in a loop to add 3 different images to a worksheet and then place in the correct location.

Multiple files are created but use only the same 3 images

Set objImage = ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\Images\" & strImageFile)
            
objImage.Cut
            
rngInsert.Offset(-29, 2).Select
            
ActiveSheet.Paste

I have tried to add the image to the specified cell but sometimes it doesn't place it in the specified cell.

With the above code I am sometime getting an error when

ActiveSheet.Paste

tries to execute but if I F8 that line it executes with no problem. The error message that displays is 'Run-time error '1004': Paste method of Worksheet class failed'
I don't understand why this only happens sometimes and with different images that do paste correctly when utilised in previously created files within the loop.

TIA

 

[Domenic]

Maybe the error occurs in some cases because the image hasn't finished being copied to the clipboard before the pasting takes place. Try the following instead...

Set objImage = ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\Images\" & strImageFile)

With rngInsert.Offset(-29, 2)
    objImage.Left = .Left
    objImage.Top = .Top
End With

If you're using the cut and paste method because of the bug that exists with Pctures.Insert, try using the AddPicture method of the Shapes object instead...

Dim objShape As Shape

Set objShape = Sheet1.Shapes.AddPicture(Filename:=ActiveWorkbook.Path & "\Images\" & strImageFile, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=rngInsert.Offset(-29, 2).Left, _
    Top:=rngInsert.Offset(-29, 2).Top, _
    Width:=-1, _
    Height:=-1)

Hope this helps!