COMPARTIR-COLOCAR UNA IMAGEN EN EXCEL DESDE FWH

[joseluisysturiz]

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

[carloslmm]

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]

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

* 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/

[carloslmm]

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]

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]

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

/*
 *  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]

Saludos !
Puedes compartir la clase ?

[joseluisysturiz]

Saludos !
Puedes compartir la clase ?

Revisa este link
http://forums.fivetechsupport.com/viewt ... el#p122340

[carloslmm]

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]

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

[carloslmm]

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

[joseluisysturiz]

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

[AngelSalom]

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

[joseluisysturiz]

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

Enviada la que me llego, espero te sirv, gracias, saludos...

[ltorres]

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

Saludos


Luis