VFP exportar imagen a Excel

381 views
Skip to first unread message

GusGuald

unread,
Jan 15, 2018, 3:08:58 AM1/15/18
to Comunidad de Visual Foxpro en Español
Estimados, buenas noches estoy haciendo un listado de productos y les estoy agregando la imagen, pero todas las imágenes se graban en la celda A4, estoy usando una código que encontré en comunidadvfp.blogspot.com pero por más que he probado no puedo hacer que se ubique en la celda que necesito. 

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

HernanCano

unread,
Jan 15, 2018, 11:23:04 PM1/15/18
to Comunidad de Visual Foxpro en Español
Amigazo:
Sinceramente es rarísimo que no te des cuenta que las dos referencias a celdas que hay en el código que expones no se refieren a la celda A4 que dices que es la que se necesita.

Hay una referencia a Cells(10,10) y otra a .Range("C4"), pero ninguna es A4.

Es más ni siquiera se ve el .Paste.


GusGuald

unread,
Jan 19, 2018, 1:22:27 AM1/19/18
to Comunidad de Visual Foxpro en Español
Hernan, exactamente no tengo en ninguna parte la celda A4 y todas las imagenes se graban en esa ubicación, te adjunto el resultado al exportar, lo que necesito es que cada imagen se grabe en la respectiva celda del producto, por ejemplo en celda A5, A6,A7,....An. en el codigo que presente anteriormente XLSheet.Cells(10,10).select o .RANGE("C8").SELECT debe aparecer en esas celdas pero no es así.

GusGuald

unread,
Jan 25, 2018, 9:58:19 AM1/25/18
to Comunidad de Visual Foxpro en Español
buen dia, ya encontré el problema, en la maquina que exportaba tiene Office 2007, pero al hacerlo en otras versiones de office funciona bien.
Reply all
Reply to author
Forward
0 new messages