Select annotation to edit

[matzwaki]

Purpose: Transfer Excel to LO calc
Task: Via button_click a macro creates a new annotation at the selected cell, inserts text like "OrderNo: " and selects this annotation with cursor at the end of the text, waiting for the number to be entered.

I’ve worked it out to create the annotation and insert the text, but could not find any documentation about selecting an annotation.
In Excel it’s the command: comment.Shape.Select
Where comment is the object of the annotation.

Is there something similar in LO Basic or does someone have an idea how to solve the task?

[sokol92]

Try this:

' Edit current cell annotation (comment)
Sub EditAnnotation() 
  Dim oFrame as Object, oDisp as Object
  oFrame = ThisComponent.CurrentController.Frame
  oDisp = createUnoService("com.sun.star.frame.DispatchHelper") 
  oDisp.executeDispatch(oFrame, ".uno:EditAnnotation", "", 0, Array())  
End Sub