Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

@Gilberto Schiavinatto

Teste este

Sub ChangeCellColor
oSel = ThisComponent.CurrentSelection(0)
If oSel.supportsService("com.sun.star.sheet.SheetCell") Then
   CurrentColor = oSel.CellBackColor
   If CurrentColor = -1 Then
        oSel.CellBackColor = RGB(194,224,174)
   else
        oSel.CellBackColor = -1
End if
End if
End Sub

Pode deixar com o Evento Seleção Alterada, mas para mudar de cor, precisa clicar uma segunda vez.