[es-users] Error en macro

Saludos a todos y feliz año:
Estoy intentando realizar una macro sencilla para que al ejecutarla me
cambie el color de la fuente de la celda seleccionada, en concreto sería el
color azul "CharColor = RGB (0,0,255)".
Le asigno una tecla de acceso rápido (Ctrl + a ) y al ejecutarla me sale lo
siguiente:

" Se ha producido el error 424 en tiempo de ejecución 
Se requiere un objeto"

Esta macro la he estado utilizando mucho tiempo en "LibreOffice" y siempre
me ha funcionado y no sé por qué en la he trasladado a excel y no funciona,
os paso la macro tal y como la tengo creada. Muchas gracias y agradecería la
ayuda de vosotros. La parte de color azul es donde aparece el error.

Sub FormatoCeldas3()
Dim oSel As Object

oSel = ThisComponent.getCurrentSelection()

With oSel
'Color de la fuente azul
.CharColor = RGB( 0,0,255 )
'Si se muestra el color
.CharUnderlineHasColor = True
End With



End Sub

 

p.d. cambié de sistema operativo y ahora estoy utilizando Windows 10, no sé
si tiene algo de importancia.


-- 
Para instrucciones sobre darse de baja envíe un mensaje a: users+unsubscribe@es.libreoffice.org
¿Problemas? http://es.libreoffice.org/asistencia/listas-de-correo/como-darse-de-baja/
Guías para envío + más: http://wiki.documentfoundation.org/Netiquette/es
Archivo de la lista: http://listarchives.libreoffice.org/es/users/
Todos los mensajes enviados a esta lista serán archivados públicamente y no pueden ser eliminados