----- Mensaje original ---- De: "[email protected]" <[email protected]> Para: [email protected] Enviado: sáb,21 agosto, 2010 04:33 Asunto: Re: [d_es] Formatear moneda en Basic > 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 Gracias por contestar, efectivamente tienes razón con .NumberFormat = X, se establecen formatos, el problema es que no consigo poner la moneda en Euros, yo soy de españa, si utilizo la macro de tu libro: Listar forma...., me da el listado del documento adjunto, como veras el formato de Euro o € no esta. Tu sabes porque, si cuando abro un documento me aparece en el cuadro de formatos, no aparece aqui? Saludos
FormatNewDoc.ods
Description: application/vnd.oasis.opendocument.spreadsheet
--------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
