Get annotations from a column (not entire sheet)

English
,
#1

Dim oAnnotations As Variant, oAnnotation As Variant
Dim oSheet, oDoc as object
Dim oCell, oCol as object

oDoc = ThisComponent.CurrentController
oSheet = oDoc.ActiveSheet
oCell = oSheet.getCellByPosition(0,0)
oCol = oSheet.Columns.getByIndex( 2 ) ’ 2 = Column C
oAnnotations = oSheet.getAnnotations()
Then…This oAnnotations gets comments from all sheet.

oAnnotations = oCell.getAnnotations()
Now…this oAnnotations gets comment from a cell

Why doesn’t oAnnotations = oCol.getAnnotations() get comments from a column?

#2

That’s simply because columns (or any subranges of sheets) don’t support an interface for this kind of access. The Interface XSheetAnnotationsSupplier only exists for complete sheets.

That is simply not true. You probably tested the singular oCell.getAnnotation().
Single cells supply the interface XSheetAnnotationAnchor

#3

But if you write the following codes:
oAnnotation = oCell.getAnnotation()
sGetComment = Trim(oAnnotation.getString()) 'being “Dim sGetComment as String” of course
msgbox sGetComment

you got a result

#4

Sorry…you are right …now that I saw…the correct form is the singular oCell.getAnnotation()
Very sorry

#5

But is there a code to search for annotation in column?

#6

IIRC you knew the method .queryContentCells() with parameter value 8.

For many requests there are solutions by user code possible.
The question is then who knows/researches the means and writes the code.
Yo may look into the attached example.
However, I used Calc a lot some decades ago, and I can’t remember a case where annotations were needed, not just used for a few decorations. I will therefore step back from these topics.
disask121520AnnotationAccessForRanges.ods (12.2 KB)

#7

https://forum.openoffice.org/en/forum/viewtopic.php?t=2762
=CELL_NOTE(SHEET();ROW();1) returns the annotation text of this sheet’s row 1 in the same column.

#8

This tells me that the title of the thread is misleading.
I think the questioner is still in pursuit of his previous question How to find all cell addresses (specified ranges) with annotations in a sheet with macro?, but wants to restrict the search to a range, this time to a column, next time to any SheetCellRange or SheetCellRanges object.
Actually I would like to know what he finally wants to achieve.

Impressum (Legal Info) | Datenschutzerklärung (Privacy Policy)   Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.