Antonio: AddPicture & EXCEL 2010

[sysctrl2]

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: Select all  Expand view

#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:Pictures:Insert( cFile )
   
    oSheet:Shapes:AddPicture( cFile, .F., .T., 0, 0, 200, 150 )

    oExcel:Visible = .T.
RETURN NIL

Gracias por la ayuda.

[anserkk]

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

Code: Select all  Expand view

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

Regards
Anser

[sysctrl2]

Anserkk, Many tanks.

Funciona perfecto,

gracias

saludos.

[sysctrl2]

amigos tambien funciona con:

oSheet:Pictures: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: Select all  Expand view

#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:Shapes:AddPicture( cFile, .F., .T., 0, 0, 200, 150 )

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

[goosfancito]

Buen dia.

Y si esa imagen la tengo dentro de un recurso?

gracias.

[joseluisysturiz]

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...