> 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 > > End Function > > Si alguien puede ayudarme os lo agradeceré. > > Saludos > > Pere >
Hola Compañero... La respuesta esta en la página 250, esta, creo, bastante claro... Para dar un formato predeterminado a la celda, usamos la propiedad NumerFormat, la cual es necesario establecer como un entero largo (long) correspondiente a la clave del formato que nos interese, por ejemplo. Sub FormatoCeldas17() Dim oSel As Object oSel = ThisComponent.getCurrentSelection() 'Establecemos la selección en el formato Estándar oSel.NumberFormat = 0 End Sub El numero de clave no es secuencial, por lo que tenemos que saber de antemano la clave del formato que nos interesa, para ello, usa la macro que te muestro en: Listar formatos en un archivo de Calc. Saludos --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
