célula ativa

[Daniellopes2006]

oooBasic como saber o endereço da célula ativa no calc.

[Grafeno]

Olá,

Normalmente usa-se a seleção atual (método CurrentSelection) mais um teste para verificar se a seleção é mesmo uma célula:

Sub TesteSelecao
Dim oDoc As object, oSel As Object

	oDoc = ThisComponent
	' Seleção Atual	
	oSel = oDoc.CurrentSelection
	' Sair se o objeto selecionado não for uma célula individual
	If oSel.ImplementationName <> "ScCellObj" Then Exit Sub
	
	' Exibir a referência absoluta da célula
	MsgBox oSel.AbsoluteName
End Sub

Atte,