how to get height of cell in basic program,get content [closed]

edit

May be so?

Sub getHeigthOfMergedCells
Dim oSheet As Variant
Dim nCount As Long
Dim oCellFormatRanges As Variant
Dim oEnum As Variant
Dim oCell As Variant
Dim oCursor As Variant
Dim aRes() As String

    oSheet = ThisComponent.getSheets().getByIndex(0)
    oCellFormatRanges = oSheet.getCellFormatRanges()
    oEnum = oCellFormatRanges.createEnumeration()
    Do While oEnum.hasMoreElements()
        oCell = oEnum.nextElement()
        If oCell.getIsMerged() Then
            nCount = UBound(aRes())+1
            ReDim Preserve aRes(nCount)
            oCursor = oSheet.createCursorByRange(oCell)
            oCursor.collapseToMergedArea()
            aRes(nCount) = "Cell " + oCell.AbsoluteName + "(" _
                + oCursor.AbsoluteName +") has Height=" _
                + oCursor.Size.Height + ", Width=" _
                + oCursor.Size.Width + " and Value='" _
                + oCell.getCellByPosition(0,0).getString() + "'"
        EndIf
    Loop
    If LBound(aRes()) > UBound(aRes()) Then
        MsgBox("No merged cells...")
    Else
        MsgBox("Found merged cells:"+Chr(10)+Join(aRes,Chr(10)))
    EndIf
End Sub