calcのデータプロットエリアの位置、サイズをマクロで知る方法

グラフのデータプロット領域（目盛等を除いたエッセンシャルな部分）のサイズがわかりませんでした。下記のマクロではエラーになったので、rem文にしました。正しいマクロを教えて下さい。VBAではcells(2,2)=ActiveSheet.ChartObjects(1).Chart.PlotArea.InsideHeightに相当すると思います。

Option VBASupport 1

Sub Calculate()
Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress

' 図領域位置
Rect.X = 5000
Rect.Y = 5000
' 図領域サイズ
Rect.Width = 10000
Rect.Height = 10000

ThisComponent.Sheets(0).Charts.addNewByName("datagraph", Rect, RangeAddress(), False, False)

' 散布図
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram _
= ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.createInstance("com.sun.star.chart.XYDiagram")

rem　cells(1,1)=ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.height

'　x 軸スケール
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.XAxis.Min = 0
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.XAxis.Max = 50
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.XAxis.StepMain = 10

'　y 軸スケール
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.YAxis.Min = 0
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.YAxis.Max = 20

End Sub

calcのデータプロットエリアの位置、サイズのマクロについて