Problema con Imagen incrustada en Excel

[Alejandro P]

¡Hola a todos!

Les envío un saludo esperando que estén bien y solicito su ayuda para resolver el siguiente problema, tengo un sistema de cotizaciones el cual se imprime en excel y se anexa la imagen desde un servidor, este módulo se hizo teniendo office 2000 ahora que cambiamos a office 2010 la imagen siempre la pone en la fila 4 en la columna B

les envío parte del código, ya intente varias incluso me acerque a San Google pero ninguna solución me ha dado.

     IF file(pic)=.T.

               XLSheet.Rows(fila).RowHeight=45            

           valorfila1='I'+ALLTRIM(TRANSFORM(fila,'9999999'))

                   valorfila=valorfila1+':'+valorfila1

           XLSheet.Range(valorfila).Select

           XLSheet.Pictures.Insert(pic).Select()

           XLApp.Selection.ShapeRange.LockAspectRatio = 0

           XLApp.Selection.ShapeRange.Height = 42

           XLApp.Selection.ShapeRange.Width = 34 

     ENDIF

Esperando su valiosa ayuda quedo a sus ordenes.

Alejandro....

[Hernandez Gabriel]

mira esto, con esto lo coloco en 0,0 (Top, Left)

***** colocamos el logo

XLApp.APPLICATION.activeworkbook.activesheet.cells(1,1).SELECT

XLSheet.Pictures.Insert(sys(5)+curdir()+"temp\logo.png").name="Logo"

XLSheet.Shapes("Logo").Top =0

XLSheet.Shapes("Logo").Left =0

Saludos

Gabriel

Alejandro....

--
 
 

[Alejandro P]

Te agradezco, la forma como quedo fue la siguiente y ya funciona sin problemas:

     IF file(pic)=.T.

                   XLSheet.Cells(fila,9).font.size="8"      

              XLSheet.Rows(fila).RowHeight=45           

              valorfila1='I'+ALLTRIM(TRANSFORM(fila,'9999999'))

                      valorfila=valorfila1+':'+valorfila1

              XLSheet.Range(valorfila).Select

              XLSheet.Pictures.Insert(pic).Select()

              XLApp.Selection.ShapeRange.LockAspectRatio = 0

              XLApp.Selection.ShapeRange.Height = 42

              XLApp.Selection.ShapeRange.Width = 34 

                      XLApp.Selection.ShapeRange.top  = xlSheet.Cells(fila,9).top   && estas son las lineas adicionales

                      XLApp.Selection.ShapeRange.left = xlSheet.Cells(fila,9).left         

     ENDIF

Muchas gracias!!

--