topic-24140

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Antonio: AddPicture & EXCEL 2010
Posted: Wed May 23, 2012 07:25 PM

Amigos:

como hago para insertar una imagen en una hoja de excel ?

la idea es insertar una imagen en la primera celda de la oSheet

el siguiente codigo marca error de ejecucion: ,

Error description: Error 3302404:SHAPES/3 DISP_E_MEMBERNOTFOUND: ADDPICTURE

Code (fw): Select all Collapse

#include <fivewin.ch>
FUNCTION MAIN()

    LOCAL oExcel, oSheet, oBook
    local cFile := 'OLGA1.JPG'

    oExcel = CreateObject( "Excel.Application" )
    oBook  := oExcel:WorkBooks:Add()
    oSheet := oExcel:Get( "ActiveSheet" )          
    
    //oSheet:Insert( cFile )
    
    oSheet:Shapes:AddPicture( cFile, .F., .T., 0, 0, 200, 150 )

    oExcel:Visible = .T.
RETURN NIL

Gracias por la ayuda.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: Antonio: AddPicture & EXCEL 2010
Posted: Fri May 25, 2012 05:19 AM

Please specify the full path of the image file
For eg.

Code (fw): Select all Collapse

local cFile := 'C:\FWH\gifs\Fts.Gif'

Regards
Anser

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Antonio: AddPicture & EXCEL 2010
Posted: Fri May 25, 2012 07:10 PM

Anserkk, Many tanks.

Funciona perfecto,

gracias

saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Antonio: AddPicture & EXCEL 2010
Posted: Fri May 25, 2012 07:16 PM

amigos tambien funciona con:

oSheet:Insert( cFile )

pero como dice el amigo Anserkk,

hay que indicar la ruta completa donde esta la imagen,

he probado con JPG y BMP funciona perfecto.

saludos...

Code (fw): Select all Collapse

#include <fivewin.ch>
FUNCTION MAIN()

    LOCAL oExcel, oSheet, oBook
    local cFile := 'C:\FWH\SAMPLES\OLGA1.JPG'

    IF FILE(cFile)
       ? 'si existe ...'
    endif
    oExcel = CreateObject( "Excel.Application" )
    oBook  := oExcel:WorkBooks:Add()
    oSheet := oExcel:Get( "ActiveSheet" )          
    
    oSheet:Pictures:Insert( cFile )
    
    //oSheet:AddPicture( cFile, .F., .T., 0, 0, 200, 150 )

    oExcel:Visible = .T. //ñ
RETURN NIL

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: Antonio: AddPicture & EXCEL 2010
Posted: Thu Oct 15, 2015 08:38 AM

Buen dia.

Y si esa imagen la tengo dentro de un recurso?

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Antonio: AddPicture & EXCEL 2010
Posted: Fri Oct 16, 2015 04:47 AM

goosfancito wrote:Buen dia.

Y si esa imagen la tengo dentro de un recurso?

gracias.

Lo he intentado y buscado informacion y con el OLE no creo se pueda, ya que usa los mismo macros de VB y los que he visto alli, solo permite insertar imagenes desde disco, si consigues o logras algo y puedes compartirlo seria bueno, saludos...

Dios no está muerto...

Gracias a mi Dios ante todo!

FiveTech Support Forums

Continue the discussion