30 de octubre de 2015

Insertar una imagen en Excel

Desde VFP y con Automation, insertamos una imagen en Excel y le configuramos su tamaño.

LOCAL lcImagen, lcPlanilla, lo
*-- Selecciono imagen y nombre de planilla (xls)
lcImagen = GETPICT()
lcPlanilla = PUTFILE("Nombre","MiPlanilla","xls")
*-- Creo objeto Excel
lo = CREATEOBJECT("Excel.Application")
*-- Añado un libro nuevo
lo.Workbooks.Add
*-- Selecciono la celda donde estará la posición de la imagen
lo.Cells(3,3).Select
lo.ActiveSheet.Pictures.Insert(lcImagen).Select
lo.Selection.ShapeRange.LockAspectRatio = 0
lo.Selection.ShapeRange.Height = 320 && pixeles
lo.Selection.ShapeRange.Width = 240 && pixeles
*-- Guardo planilla
lo.ActiveWorkbook.SaveAs(lcPlanilla)
lo.Quit
lo = .Null.

Luis María Guayán

No hay comentarios. :

Publicar un comentario