Me diz se seria algo parecido com isso?
.
Function MedirIntervalo()
rem Define variáveis
Dim oSelection As Object
Dim oCol As Object, oRow As Object
Dim iColWidth As Double, iRowHeight As Double
Dim i As Long, j As Long, K As Long
rem Obtem intervalo selecionado do documento atual
oSelection = ThisComponent.getCurrentSelection()
rem Insere as medidas da célula no respectivo intervalo com base no tipo selecionado
rem e na unidade de medida pt-br (centímetros)
Select Case oSelection.getImplementationName()
Case "ScCellObj"
For i = 0 To oSelection.Columns.Count-1
For j = 0 To oSelection.Rows.Count-1
iColWidth = oSelection.Columns.getByIndex(i).Width
iRowHeight = oSelection.Rows.getByIndex(j).Height
oSelection.getCellByPosition(i, j).String = "Largura: " & iColWidth/1000 & "cm" & Chr$(10) & "Altura: " & iRowHeight/1000 & "cm"
Next j
Next i
Case "ScCellRangeObj"
For i = 0 To oSelection.Columns.Count-1
For j = 0 To oSelection.Rows.Count-1
iColWidth = oSelection.Columns.getByIndex(i).Width
iRowHeight = oSelection.Rows.getByIndex(j).Height
oSelection.getCellByPosition(i, j).String = "Largura: " & iColWidth/1000 & "cm" & Chr$(10) & "Altura: " & iRowHeight/1000 & "cm"
Next j
Next i
Case "ScCellRangesObj"
For k = 0 To oSelection.Count-1
oCol = oSelection.getByIndex(k).Columns
oRow = oSelection.getByIndex(k).Rows
For i = 0 To oCol.Count-1
For j = 0 To oRow.Count-1
iColWidth = oCol.getByIndex(i).Width
iRowHeight = oRow.getByIndex(j).Height
oSelection.getByIndex(k).getCellByPosition(i, j).String = "Largura: " & iColWidth/1000 & "cm" & Chr$(10) & "Altura: " & iRowHeight/1000 & "cm"
Next j
Next i
Next k
End Select
End Function
.
AskFuncaoMedirCelula.ods (32,3,KB)