Может быть кому-нибудь пригодится:
Global oDocView, oMouseClickHandler
Sub RegisterMouseClickHandler
oDocView=ThisComponent.currentController
oMouseClickHandler=createUnoListener("MyApp_","com.sun.star.awt.XMouseClickHandler")
oDocView.addMouseClickHandler(oMouseClickHandler)
End Sub
Sub UnregisterMouseClickHandler
oDocView.removeMouseClickHandler(oMouseClickHandler)
End Sub
Sub MyApp_disposing
End Sub
Function MyApp_mousePressed(oEvt) As Boolean
MyApp_mousePressed=False
End Function
Function MyApp_mouseReleased(oEvt) As Boolean
MyApp_mouseReleased=False
on error resume next
oCell=ThisComponent.CurrentSelection
oRanges=ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
oCol=oCell.Columns.getByIndex(0).RangeAddress
oRow=oCell.Rows.getByIndex(0).RangeAddress
oRanges.addRangeAddresses(Array(oCell.RangeAddress,oCol,oRow),False)
ThisComponent.CurrentController.select(oRanges)
End Function
Sub Macro1
End Sub
После запуска RegisterMouseClickHandler макрос делает, то что требуется, т.е. при выделении ячейки нажатием кнопки мыши выполняет координатное выделение. Но, перемещение активной ячейки всегда снимает выделение.