Função "=AQUI()", Função "=FUNDO(CEL;COR)"

[ohallot]

Boa tarde

Estou procurando meios de escrever uma função de nome AQUI(), da seguinte forma:

Se insiro =AQUI() na célula B3, a função me retorna “B3”.

Simples de formular, nem tão simples de obter com a API do LibreOffice…

A outra é

=FUNDO(CEL;COR), retorna 0 mas põe o fundo da célula “CEL” na cor “COR” expressa por =RGB(Vermelho, Verde, Azul)

[ohallot]

A primeira função “=AQUI()”, pode ser obtida de =CÉL(“address”)

[schiavinatto]

Ola @ohallot, a função chamada de macro funciona, só a função não !!!

Sub teste
	FUNDO "C5", 14654653
End Sub

Function FUNDO ( xLocal$, xCor&)
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = xLocal
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1())
	dim args11(0) as new com.sun.star.beans.PropertyValue
	args11(0).Name = "BackgroundColor" : 	args11(0).Value = xCor
	CreateUnoService("com.sun.star.frame.DispatchHelper") _
	.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:BackgroundColor", "", 0, args11())
End Function

[ohallot]

Obrigado Gilberto. Talvez seja por que para uma função funcionar (epa!), o código só pode estar em biblioteca dentro do arquivo. A conferir.

[schiavinatto]

@ohallot, esta no arquivo, dá este erro:

E a planilha não esta protegida.