De Antemano gracias por su ayuda.
XLSheet.Cells(10,10).select
mimagen = "c:\sistema\imagenes\"+&lcampo
XLSheet.PICTURES.INSERT(mimagen).select
XLApp.Selection.ShapeRange.LockAspectRatio = 0
XLApp.Selection.ShapeRange.Height = 42
XLApp.Selection.ShapeRange.Width = 34
XLSheet.RANGE("C8").SELECT