COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby joseluisysturiz » Wed Jan 29, 2014 5:15 pm

Hace tiempo se me presento el trabajo de exportar datos a excel, eso ya fue superado, pero ademas de los datos, tambien debia agregar unas imagenes en la construccion de la hoja de excel, no tenia ni idea ni tampoco nadie del foro me dio respuesta, dando vuelta por Mr.Google, al fin consegui como hacerlo y lo comparto, aunque lo original fue bajo visual basic, saludos... :shock:

esto fue lo que consegui para VB
Hoja1.Shapes.AddPicture "ruta:\Img.jpg", msoFalse, msoCTrue, Hoja1.Range("A1").Left, Hoja1.Range("A1").Top, Hoja1.Range("A1").Width, Hoja1.Range("A1").Height
"esto lo que hace es colocar la imagen en la celda especifica, y la imagen toma el alto y ancho de la celda."

pero no es del todo real, desde FWH, probado y confirmado se ahce asi y no es dentro de la celda, sino sobre las celdas como normalmente se haria directo el excel:

oHoja:Shapes:AddPicture( "RUTA DE LA IMAGEN\imagen.xxx", .t., .f., 100, 150, 80, 120 ) // AGREGA IMAGEN A EXCEL FUNCIONA

oHoja:Shapes:AddPicture( "RUTA DE LA IMAGEN\imagen.xxx", .t., .t., 100, 150, 80, 120 ) // AGREGA IMAGEN A EXCEL FUNCIONA

oHoja:Shapes:AddPicture( "RUTA DE LA IMAGEN\imagen.xxx", .f., .t., 100, 150, 80, 120 ) // AGREGA IMAGEN A EXCEL FUNCIONA

oHoja:Shapes:AddPicture( "RUTA DE LA IMAGEN\imagen.xxx", .f., .f., 100, 150, 80, 120 ) // AGREGA IMAGEN A EXCEL DA ERROR QUE NO ENTIENDO

los valore logicos nose bien a que se refieren, el primer y segundo valor(100, 150) se refieren a la posicion dentro de la hoja y los 2 ultimos valores(80, 120), al tamaño que tendra la imagen. Todos los valores son necesarios.

espero les sea de utilidad para otros, gracias, saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby carloslmm » Thu Jan 30, 2014 5:02 pm

Hola Joseluis

Gracias por compartir tu experiencia, seria posible me ayudaras como cambiar color de celda letras etc., estoy realizando algo similar con una informacion
y al enviar generar el archivo en excell me indica que no es correcto mas sin embargo lo abre y aparece la informacion

si es posible te agradecería de antemano y si me puedes mandar los comandos a mi correo, seria carloslmm@hotmail.com y carloslmm10@gmail.com
o la ayuda que me puedas brindar

Carlos I. De La Rosa

Gracias

Uso fwh 12.04 borland 5.82
carloslmm
 
Posts: 71
Joined: Sat Oct 20, 2007 3:02 pm
Location: Sinaloa Mexico

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby joseluisysturiz » Fri Jan 31, 2014 2:12 am

Carlos y los interesados, para usar las propiedades de excel, uno se puede guiar por las mismas que se usan en VB y las macros de excel, para eso abierto excel, se presiona ALT + F11 y alli saldra, para una mejor guia de algunas propiedades que pudiesesmos necesitar, les coloco algunas link d donde baje informacion y que ya probe en mi sistema, saludos... :shock:

* oHoja:Cells:Font:Name := "Arial" // ESPECIFICA TIPO DE LETRA PARA TODA LA HOJA
* oHoja:Cells:Font:Size := 12 // ESPECIFICA TAMANO DE LETRA PARA TODA LA HOJA
* oHoja:Cells( 1, 1 ):Font:Size := 16 // DETERMINA TAMAÑO DE LETRA A USAR EN UNA CELDA
* oHoja:Cells( 1, 1 ):Font:Bold := .t. // PONE EN NEGRITAS VALOR DE UNA CELDA
* oHoja:Cells( 1, 1 ):Font:ColorIndex := 5 // COLOR PRE-ESTABLECIDO DE EXCEL PARA EL CONTENIDO DE LA CELDA
* oHoja:Cells( 3, 2 ):Font:Color := RGB(255,0,0) // COLOR DEL CONTENIDO DE LA CELDA
* oHoja:Cells( 1, 4 ):Interior:ColorIndex := 16 // COLOR PRE-ESTABLECIDO DE EXCEL PARA LA CELDA(relleno)
* oHoja:Cells( 3, 2 ):Interior:Color := RGB(200,160,35) // COLOR DE LA CELDA(relleno)

Los Links

http://www.aulaclic.es/macros-excel/t_3_3.htm

http://www.ecapmexico.net/website/index ... &Itemid=59

http://office.microsoft.com/es-hn/excel ... 36627.aspx

http://www.xltoday.net/vba_ejemplos_colores-asp

http://www.gerencie.com/codigos-mas-com ... excel.html

http://www.excel-avanzado.com/1346/camb ... o-vba.html

http://www.compartir-tecnologias.es/s/c ... lor+celda/
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby carloslmm » Fri Jan 31, 2014 4:11 pm

Jose Luis

Muchas Gracias por tu respuesta voy a checar los link y con lo que respondiste ya puedo avanzar en el sistema

Saludos

Carlos De La Rosa

fwh 12.40 harbour borland 5.8
carloslmm
 
Posts: 71
Joined: Sat Oct 20, 2007 3:02 pm
Location: Sinaloa Mexico

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby Vikthor.Thomas » Fri Jan 31, 2014 6:45 pm

El método AddPicture() de la clase TExcel

/*
* AddPicture( cFile, nRow , nCol , nWidth , nHeight)
*/
METHOD AddPicture( cFile, nRow , nCol , nWidth , nHeight ) CLASS TExcelScript // [ Vikthor ]
IF Empty( cFile )
RETURN ( Nil )
ENDIF
DEFAULT nRow := 1 ,;
nCol := 1 ,;
nWidth := 100 ,;
nHeight := 100
::oShape:Invoke("AddPicture" , cFile , .T. , .T. , nRow , nCol , nWidth , nHeight )
RETURN( Nil )

Saludos
User avatar
Vikthor.Thomas
 
Posts: 144
Joined: Thu Jan 02, 2014 1:49 pm

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby Vikthor.Thomas » Fri Jan 31, 2014 6:47 pm

carloslmm wrote:Hola Joseluis

Gracias por compartir tu experiencia, seria posible me ayudaras como cambiar color de celda letras etc., estoy realizando algo similar con una informacion
y al enviar generar el archivo en excell me indica que no es correcto mas sin embargo lo abre y aparece la informacion

si es posible te agradecería de antemano y si me puedes mandar los comandos a mi correo, seria carloslmm@hotmail.com y carloslmm10@gmail.com
o la ayuda que me puedas brindar

Carlos I. De La Rosa

Gracias

Uso fwh 12.04 borland 5.82


Carlos , te anexo el código fuente del método FormatRage() de la clase TExcel
Code: Select all  Expand view  RUN
/*
 *  TExcelScript():FormatRange()
*/


METHOD FormatRange( cRange , cFont , nSize , lBold , lItalic , nAlign , nFore , nBack , nStyle , cFormat , lAutoFit )
  LOCAL oRange

  oRange := ::oSheet:Range( cRange )

  IIF( cFont == Nil  , , oRange:Font:Name := cFont )
  IIF( nSize == Nil  , , oRange:Font:Size := nSize )
  IIF( lBold == Nil  , , oRange:Font:Bold := lBold )
  IIF( lItalic == Nil, , oRange:Font:Italic := lItalic )
  IIF( nFore == Nil  , , oRange:Font:Color := nFore )
  IIF( nBack == Nil  , , oRange:Interior:Color := nBack )
  IIF( cFormat == Nil, , oRange:Set("NumberFormat",cFormat) )
  IIF( nStyle == Nil , , oRange:Borders():LineStyle  := nStyle )
  IIF( nAlign == Nil , , oRange:Set("HorizontalAlignment",Alltrim(Str(nAlign))) )
  IIF( lAutoFit == Nil , , oRange:Columns:AutoFit() )

RETURN ( Nil )


Saludos
User avatar
Vikthor.Thomas
 
Posts: 144
Joined: Thu Jan 02, 2014 1:49 pm

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby compubrion » Sat Feb 01, 2014 2:22 am

Saludos !
Puedes compartir la clase ?
Harbour / Bcc / MinGW / Fwh 13.9
User avatar
compubrion
 
Posts: 130
Joined: Thu Mar 08, 2007 6:12 pm
Location: Miranda - Venezuela

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby joseluisysturiz » Sat Feb 01, 2014 2:36 am

compubrion wrote:Saludos !
Puedes compartir la clase ?


Revisa este link
viewtopic.php?f=6&t=17030&p=122340&hilit=TExcel#p122340
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby carloslmm » Sat Feb 01, 2014 3:42 am

Victor y JoseLuis

Muchas gracias por su colaboracion, todo esta quedando muy bien
les agradesco mucho

Saludos

Carlos I. De La Rosa
carloslmm@hotmail.com

fwh 12.04 Harbour Borland 5.8
carloslmm
 
Posts: 71
Joined: Sat Oct 20, 2007 3:02 pm
Location: Sinaloa Mexico

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby joseluisysturiz » Sat Feb 01, 2014 3:54 am

Carlos, tienes la clase TExcel.? si es asi puedes enviarla a mi correo.? todo lo que he trabajado de excel es guiandome como se hace con VB, gracias, saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby carloslmm » Sat Feb 01, 2014 4:35 pm

Jose Luis Contodo gusto
Descargue una clase que descargue indicame tu correo y te la mando con todo gusto

:D

Carlos De La Rosa
carloslmm@hotmail.com

fwh 12.04 harbour borland 5.8
carloslmm
 
Posts: 71
Joined: Sat Oct 20, 2007 3:02 pm
Location: Sinaloa Mexico

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby joseluisysturiz » Sun Feb 02, 2014 3:07 am

carloslmm wrote:Jose Luis Contodo gusto
Descargue una clase que descargue indicame tu correo y te la mando con todo gusto

:D

Carlos De La Rosa
carloslmm@hotmail.com

fwh 12.04 harbour borland 5.8

Carlos, joseluisy@hotmail.com, gracias, saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby AngelSalom » Sun Feb 02, 2014 1:25 pm

Si pudieras enviármela, ¡gracias! angel@sigev.com
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby joseluisysturiz » Wed Feb 05, 2014 3:23 am

AngelSalom wrote:Si pudieras enviármela, ¡gracias! angel@sigev.com

Enviada la que me llego, espero te sirv, gracias, saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

Postby ltorres » Mon Mar 10, 2014 4:56 pm

Buenos días
Quisiera me pasen la clase Texcel, mi correo es ltorreslm@hotmail.com
Se los agradezco de antemanno

Saludos


Luis
ltorres
 
Posts: 42
Joined: Mon Jan 17, 2011 3:44 pm
Location: Lima - Peru

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 6 guests