Edito tu código:
El 20/08/10 17:20, torre collons escribió:
Hola
No consigo encontrar la forma de poder formatear unas celdas como moneda desde
basic.
He buscado en Internet, en los manuales de Mauricio y Andrew, pero soy incapaz
de conseguirlo.
He probado con format, pero no funciona, o lo hago mal, no se.
Pongo a continuación el código donde quiero que formatee la celda.
Function Anegreta ( oRangSelect as String, oMidaFont as Integer, oTipusFont as
Integer, oPosicio as Integer, oSheet as Object, oDoc as Object)
Dim oRang as Object
oRang = oSheet.getCellRangeByName( oRangSelect )
oDoc.getCurrentController.select(oRang)
oRang.CharHeight = oMidaFont
oRang.CharWeight = oTipusFont
oRang.HoriJustify = oPosicio
oRang.NumberFormat = 102
End Function
Si alguien puede ayudarme os lo agradeceré.
Saludos
Pere
Eso es todo.
--
Mi Office genera: Seguridad, Confianza y Ahorro
J. Eduardo Moreno
TOKONHU de México
044 55 2748 4840
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
