Note's dimension

[briglia23]

Is possible set note's dimension by macro?

Thank you

[Villeroy]

You have The Xray Tool and my Function getActiveCell installed? Let's roll:

Code: Select all

Sub Main
oDoc = thisComponent
oView = oDoc.getCurrentController()
oSheet = oDoc.Sheets.getByIndex(0)
'GlobalScope.BasicLibraries.loadLibrary("CalcTools") 'library of getActiveCell()
oCell = getActiveCell(oView)
GlobalScope.BasicLibraries.loadLibrary("XrayTool")
' xray oCell
oNote = oCell.getAnnotation() 'or pseudo-property .Annotation
' xray oNote
oShape = oNote.getAnnotationShape() 'or pseudo-property .AnnotationShape
xray oShape
oSize = oShape.getSize() ' or pseudo-property .Size
print oSize.Width, oSize.Height
oPosition = oShape.getPosition() ' or pseudo-property .Position
print oPosition.X, oPosition.Y
End Sub