Para Xevi

[Fernando Leal]

Ya puedo agregar una imagen al archivo excel
oHoja2:Cells(2, 1):Select()
oHoja2:Pictures:Insert( "C:fotoscasa1.jpg" )
eso agrega la imagen pero la agrega en tamaño original
Abajo mencionas :Shapes:AddPicture
¿Tienes el uso de :Shapes:AddPicture con xailer ?
Ya probé con
oHoja2:Shapes:AddPicture( "C:fotoscasa1.jpg", .F., .F., 10, 10,240, 320 )
Pero no funciona
>>Me contesto...
>>Leyendo un poco la MSDN...
>>:Shapes:AddPicture( cFileName, lLinkToFile, lSaveToDocument, >>nLeft, nTop, nWidth, nHeight )
>>Un Saludo,
>>xevi.

[XeviCOMAS]

Fernando,
Puse en Google MSDN excel... leí y leí, hasta llegar a
http://msdn.microsoft.com/en-us/library ... e.12).aspx
luego probé en una aplicación de prueba...
/* Conectamos con Excel y lo mostramos. */
TRY
oExcel := GetActiveObject( "Excel.Application" )
CATCH
TRY
oExcel := CreateObject( "Excel.Application" )
CATCH
MsgAlert( "ERROR! Excel not avialable. [" + Ole2TxtError()+ "]" )
oExcel := NIL
RETURN Nil
END
END
oExcel:WorkBooks():Open( "X:XeviProva.xls" )
oExcel:Worksheets("Hoja2"):Activate()
WITH OBJECT oExcel:ActiveSheet
:Shapes:AddPicture( "X:XeviFoto.Jpg", .F., .T., 5, 245, 125, 30 )
:Range( "B7" ):Value := "No"
END
oExcel:Visible := .T.
oExcel:ActiveWorkBook:Save()
Y me funciona perfectamente.
Espero te sea de ayuda.
Un Saludo,
Xevi.
"Fernando Leal" <visitante32[at]hotmail[dot]com> ha escrit al missatge del
grup de discussió: [email=50b6e91e@svctag-j7w3v3j....]50b6e91e@svctag-j7w3v3j....[/email]
> Ya puedo agregar una imagen al archivo excel
>
> oHoja2:Cells(2, 1):Select()
>
> oHoja2:Pictures:Insert( "C:fotoscasa1.jpg" )
>
> eso agrega la imagen pero la agrega en tamaño original
>
> Abajo mencionas :Shapes:AddPicture
>
> ¿Tienes el uso de :Shapes:AddPicture con xailer ?
>
> Ya probé con
>
> oHoja2:Shapes:AddPicture( "C:fotoscasa1.jpg", .F., .F.,
> 10, 10,240, 320 )
>
> Pero no funciona
>
>
>
>>>Me contesto...
>
>>>Leyendo un poco la MSDN...
>
>>>:Shapes:AddPicture( cFileName, lLinkToFile,
> lSaveToDocument, >>nLeft, nTop, nWidth, nHeight )
>
>
>>>Un Saludo,
>>>xevi.
>
> __________ Informacin de ESET NOD32 Antivirus, versin de la base de firmas
> de virus 7743 (20121128) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7743 (20121128) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[Fernando Leal]

Ya salio,
lo tuve que dejar así­:
:Shapes:AddPicture( "c:fotosfoto1.jpg", .T., .T., nColumna, nPosicion , 240, 180 )
usando dos .T.
Gracias Xevi

[XeviCOMAS]

Fernando,
como pone en la MSDN...
LinkToFile Required MsoTriState The file to link to.
entiendo que SOLO se guarda el link del archivo/foto
SaveWithDocument Required MsoTriState To save the picture with the
document.
este parámetro GUARDA la imagen físicamente en el documento (hoja excel)
El primero a .F. y el segundo a .T.
Yo lo utilizo así y me funciona perfectamente.
Un Saludo,
Xevi.
"Fernando Leal" <visitante32[at]hotmail[dot]com> ha escrit al missatge del
grup de discussió: 50b9853c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ya salio,
>
> lo tuve que dejar así:
>
> :Shapes:AddPicture( "c:fotosfoto1.jpg", .T., .T.,
> nColumna, nPosicion , 240, 180 )
>
> usando dos .T.
>
> Gracias Xevi
>
>
>
> __________ Informacin de ESET NOD32 Antivirus, versin de la base de firmas
> de virus 7752 (20121201) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7752 (20121201) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com