Calcのマクロについてです。
3年前くらいに組んだ CalcのBasicマクロですが、7.0.4までは問題なく動いていました。
7.1では動かなくなっています。
エラーダイアログは次のようになります。
「BASIC ランタイムエラー.
次のプロパティまたはメソッドが見つかりません: CellAddress。」
Basicの中身が大きく変わったかと思うのですが、どう修正したら良いでしょうか。
マクロは、ボタンに割り当てておいて、選択したセルがある行を削除するもので、
次のようなものです。
Sub delete_Click()
'アクティブシート取得
Dim oSheet As Object
oSheet = ThisComponent.CurrentController.ActiveSheet
'アクティブなセルの行番号を取得
dim oActiveCell As Object
dim currRowNum As Long
oActiveCell = ThisComponent.CurrentSelection
currRowNum = oActiveCell.CellAddress.Row
'繰り越し（19行目）より上の行には挿入処理を行わない。
If currRowNum < 18 Then Exit Sub
'行を削除
oSheet.Rows.removeByIndex(currRowNum, 1)
End Sub