マクロでグラフの表示範囲を変更する方法について

[dfgdfghjfghkghjkfghjsdfgasdewrert]

Calcのシート上に配置したボタンを押すと、30日前から当日までのデータを使ってグラフを引く。
こういう機能を持たせたいのですがどうしたらいいでしょうか。

グラフのデータは広い範囲を指定しておき、表示領域だけ30日前から当日にしてみましたが、何も表示されません。
下のようなコードでデータ領域を明示的に設定する方法を考えましたが、この設定した領域をどのように
グラフに設定すればいいのか分かりません。

Dim addr(1) As New com.sun.star.table.CellRangeAddress

'グラフのデータを指定する
addr(0).Sheet = sheet.RangeAddress.Sheet
addr(0).StartColumn = 2
addr(0).StartRow = idx_min
addr(0).EndColumn = 2
addr(0).EndRow = idx_max
addr(1).Sheet = sheet.RangeAddress.Sheet
addr(1).StartColumn = 7
addr(1).StartRow = idx_min
addr(1).EndColumn = 12
addr(1).EndRow = idx_max

[himajin100000]

予め、Sheet1のA1からA4の4セルにそれぞれ1,2,3,4を, B1に=A1^2を入力して、B1をコピーしてB4まで貼り付けた上で、A1:B4の範囲を対象にグラフを作っておきました。

Sub Main()

    REM ツール→オプション
    REM LibreOffice→Basic IDE オプション→拡張型を使用のチェックを入れておくと
    REM As以下にインターフェースか構造体名を指定できる。
    REM サービス名は指定できないので注意。
    REM このとき、当該変数については、インテリセンスが使用可能になります。
    REM ただし、メソッドチェーンのインテリセンスにはなりませんのでご注意。
    REM このオプションを使用しない場合、変数の型はObjectかVariantに変更してください
    
    Dim book As com.sun.star.sheet.XSpreadsheetDocument
    Dim addr(0) As com.sun.star.table.CellRangeAddress
            
    addr(0).Sheet = 0
    addr(0).StartColumn = 0
    addr(0).StartRow = 0
    addr(0).EndColumn = 1
    addr(0).EndRow = 1
    
    book = ThisComponent
    
    REM com.sun.star.table.XTableChart.setRanges( ([in] sequence< com::sun::star::table::CellRangeAddress > aRanges)
    book.getSheets().getByIndex(0).getCharts().getByIndex(0).setRanges(addr)

End Sub