capturebitmap and save image in .xls cell

Set ōExcel = CreateObject("Excel.Application")
On Error Resume Next
oExcel.WorkBooks.Open "C:\YourFile.xls"
Set ōbjSheet = oExcel.ActiveWorkbook.Worksheets(1)
objSheet.OLEObjects.Add(,"C:\YourImageFile.png",False,True, "mspaint.exe",0,"C:\YourImageFile.png").Select
oExcel.ActiveWorkbook.Save : oExcel.ActiveWorkbook.Close
oExcel.Application.Quit
Set ōExcel = Nothing : Set ōbjSheet = Nothing

Would this help any

Sub InsertAndMovePicture(sPictureName As String, sCellAddress As String)

With ActiveSheet.Pictures(sPictureName)
    .Left = ActiveSheet.Range(sCellAddress).Left
    .Top = ActiveSheet.Range(sCellAddress).Top
  End With
End Sub
Sub CallMovePicture()
ActiveSheet.Pictures.Insert("C:\CRISNET\EXPORT\CMA_Picture_Group\CMA_Picture.jpg").Select
    Selection.Name = "Picture-1"
    Application.Run "InsertAndMovePicture", "Picture-1", "A1"
End Sub