[Solved] From MouseEvent point to cell position

[Ove]

Dear Community

I'm new to OpenOffice macro programming, so:
How can I translate the coordinates given in a MouseEvent into a cell position on a spreadsheet?

Appreciate any help
/Ove

[Zizi64]

Please upload your .ODF type sample file and your embedded macro code here.

[Ove]

Sorry.
Are these functions enough to explain the problem?

Global g_oMouseClickHandler 'As Object

Sub OnDocumentLoadingFinished 'attached to event 'Document Loading Finished'
REM Grab the mouse clicks in this sheet
g_oMouseClickHandler = createUnoListener("MouseClickHandler_","com.sun.star.awt.XMouseClickHandler")
ThisComponent.CurrentController.addMouseClickHandler(g_oMouseClickHandler)
End Sub

'***************************************************************************************

sub MouseClickHandler_mousePressed(oEvt) As Boolean ' As com.sun.star.awt.MouseEvent)
REM Grab mouse clicks
Dim oCell As Object

oCell = FindCell(oEvt.X, oEvt.Y)
End Sub

'***************************************************************************************

sub MouseClickHandler_mouseReleased(oEvt) As Boolean
REM Grab this one too
End Sub

'***************************************************************************************

Function FindCell(xPos, yPos) As Object
Dim oCell As Object
'How do i find the cell under the (X, y) coordinates?'

FindCell = oCell
End Function

[JeJe]

Suggestion here:

"I listen to selection event changes and keep the column and row of last change."

viewtopic.php?t=37304

An alternative approach *might* be to loop through column widths and row heights starting with the first visible ones and working out which is under the x y co-ordinate.

[Ove]

Thank you JeJe. I liked the SelectionChangeEvent approach, but unfortunately this event seems to occure *after* the MouseClickEvent. I guess that leaves me with the loop approach?
/Ove

[Villeroy]

Some code recorded by the MRI object inspection tool:

Code: Select all

Sub Snippet
  Dim oCurrentController As Variant
  Dim aVisibleArea As New com.sun.star.awt.Rectangle
  Dim aVisibleAreaOnScreen As New com.sun.star.awt.Rectangle
  Dim aVisibleRange As New com.sun.star.table.CellRangeAddress
  Dim oActiveSheet As Variant
  Dim oCellByPosition As Variant
  Dim aPosition As New com.sun.star.awt.Point
  Dim aSize As New com.sun.star.awt.Size
  Dim oCellByPosition2 As Variant
  Dim aPosition2 As New com.sun.star.awt.Point
  Dim aSize2 As New com.sun.star.awt.Size

  oCurrentController = ThisComponent.getCurrentController()
  aVisibleArea = oCurrentController.VisibleArea
  aVisibleAreaOnScreen = oCurrentController.VisibleAreaOnScreen
  
  aVisibleRange = oCurrentController.getVisibleRange()
  oActiveSheet = oCurrentController.getActiveSheet()
  oCellByPosition = oActiveSheet.getCellByPosition(0, 0)
  
  aPosition = oCellByPosition.Position
  aSize = oCellByPosition.Size
  oCellByPosition2 = oActiveSheet.getCellByPosition(1, 0)
  
  aPosition2 = oCellByPosition2.Position
  aSize2 = oCellByPosition2.Size
End Sub

The current controller has a visible area and a visible cell range address. Each cell of the visible range has a position and size which may intersect with a given mouse cursor position. Loop through the columns until you find the matching X and loop through the rows until you get the matching Y. Then you have the cell. Oh, and the view may be split or frozen. Then you have to work through multiple panes.

[Ove]

Thank you all for helping me out

/Ove