FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Wed Jan 29, 2014 05: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... :-)

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:AddPicture( "RUTA DE LA IMAGEN\imagen.xxx", .t., .f., 100, 150, 80, 120 ) // AGREGA IMAGEN A EXCEL FUNCIONA

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

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

oHoja: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... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
carloslmm
Posts: 71
Joined: Sat Oct 20, 2007 03:02 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Thu Jan 30, 2014 05: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

joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Fri Jan 31, 2014 02: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!
carloslmm
Posts: 71
Joined: Sat Oct 20, 2007 03:02 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Fri Jan 31, 2014 04: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

Vikthor.Thomas
Posts: 144
Joined: Thu Jan 02, 2014 01:49 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Fri Jan 31, 2014 06: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

Vikthor.Thomas
Posts: 144
Joined: Thu Jan 02, 2014 01:49 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Fri Jan 31, 2014 06: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 (fw): Select all Collapse
/*
 *  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
compubrion
Posts: 132
Joined: Thu Mar 08, 2007 06:12 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Sat Feb 01, 2014 02:22 AM

Saludos !
Puedes compartir la clase ?

Harbour / Bcc / MinGW / Fwh 13.9
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Sat Feb 01, 2014 02: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!
carloslmm
Posts: 71
Joined: Sat Oct 20, 2007 03:02 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Sat Feb 01, 2014 03: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

joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Sat Feb 01, 2014 03: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!
carloslmm
Posts: 71
Joined: Sat Oct 20, 2007 03:02 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Sat Feb 01, 2014 04:35 PM

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

Carlos De La Rosa

carloslmm@hotmail.com

fwh 12.04 harbour borland 5.8

:D

joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Sun Feb 02, 2014 03:07 AM
carloslmm wrote:Jose Luis Contodo gusto
Descargue una clase que descargue indicame tu correo y te la mando con todo gusto

:-)

Carlos De La Rosa
carloslmm@hotmail.com

fwh 12.04 harbour borland 5.8

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



Gracias a mi Dios ante todo!
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Sun Feb 02, 2014 01: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
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Wed Feb 05, 2014 03:23 AM
AngelSalom wrote:Si pudieras enviármela, ¡gracias! angel@sigev.com

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



Gracias a mi Dios ante todo!
ltorres
Posts: 42
Joined: Mon Jan 17, 2011 03:44 PM
Re: COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH
Posted: Mon Mar 10, 2014 04:56 PM

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

Saludos

Luis

Static archive · New replies & topics via GitHub Discussions