Macro para posição da célula ativa

[Daniellopes2006]

Meu objetivo é pegar a posição da célula ativa.
Na internet peguei o código abaixo e após execução diz:

"Propriedade ou método não encontrado: getCellAddress "

Alguém pode me dizer como consertar.

Sub get_cell_address()
Dim oActiveCell
Dim oConv
    oActiveCell = ThisComponent.getCurrentSelection()
    
    oConv = ThisComponent.createInstance("com.sun.star.table.CellAddressConversion")
    oConv.Address = oActiveCell.getCellAddress
    
    msgbox  oConv.UserInterfaceRepresentation & _
      "  " & oConv.PersistentRepresentation
End Sub

[Grafeno]

Boa noite,

O código só funciona se o objeto selecionado no Calc for **uma célula individual**. Caso a seleção seja de um intervalo de células, um desenho, gráfico, etc, o código irá falhar.

Uma forma de resolver é testar que tipo de objeto está na seleção e alertar o usuário para corrigir.

Sub get_cell_address()
Dim oActiveCell
Dim oConv
    oActiveCell = ThisComponent.getCurrentSelection()
    
    'Testar se é uma célula individual. Se não for, avisar o usuário.'
    If oActiveCell.ImplementationName <> "ScCellObj" Then
       Msgbox "Por favor, selecione uma célula individual!", 48,"Aviso"       
       Exit Sub
    End If

    oConv = ThisComponent.createInstance("com.sun.star.table.CellAddressConversion")
    oConv.Address = oActiveCell.getCellAddress

    msgbox  oConv.UserInterfaceRepresentation & _
      "  " & oConv.PersistentRepresentation
End Sub

**Um adendo:**
Celula ativa (ActiveCell) é um assunto recorrente aqui no Ask. Veja a resposta abaixo para outras soluções:

• Função para retornar a célula ativa?

Atte,

[Daniellopes2006]

Resolvi meu problema, obrigado.