[Solved] Create a note

[briglia23]

Hi everybody.
I want a macro that insert a note in the selected cell.
The operation is the following one:
I select the cell where I want to insert the note
I press a button that starts the macro for inserts the note in the cell selected before

Thank you

[Villeroy]

Install The Xray Tool. You can not live without it.

Code: Select all

Sub Main
oDoc = thisComponent
oSheet = oDoc.Sheets.getByIndex(0)
oCell = oSheet.getCellByPosition(0, 0)
GlobalScope.BasicLibraries.loadLibrary("XrayTool")
xray oCell
oNote = oCell.getAnnotation() 'or pseudo-property .Annotation
xray oNote
oNote.setString("Hello, Note") 'or pseudo-property .String
End Sub

[briglia23]

You are amazing!!
But if i don't know where i want insert a note before.
I want select a cell whit mouse and insert a note in this cell i cant use oCell = oSheet.getCellByPosition(0, 0) because i don't know the cell

[Hagar Delest]

See here: [Solved] Set variable to value of =COLUMN().

[Villeroy]

I want a macro that insert a note in the selected cell.

Follow the link provided by Hagar de l'Est. A selection in Calc is always one of:
1. a multiple selection of ranges by service "com.sun.star.sheet.SheetCellRanges"
2. some shape (annotation, chart, drawing, ...)
3a. a single range of service "com.sun.star.sheet.SheetCellRange"
3b. which is a single cell if it additionally supports "com.sun.star.sheet.SheetCell" (highlighted or not)

[briglia23]

i got it.
i used getCurrentSelection()

[Villeroy]

i got it.
i used getCurrentSelection()

which might be exactly what you do *not* really want, unless the current selection happens to be a single cell. Use function getActiveCell from the other thread, which always returns the current input cell even if a shape is selected.