The following Basic has been recorded using the MRI tool http://extensions.services.openoffice.org/project/MRI oInitialTarget is the selected single cell.
Sub Snippet(Optional oInitialTarget As Object) Dim oAnnotation As Object Dim oAnnotationShape As Object Dim aPosition As New com.sun.star.awt.Point Dim nX As Long Dim nY As Long Dim aSize As New com.sun.star.awt.Size Dim nHeight As Long Dim nWidth As Long oAnnotation = oInitialTarget.getAnnotation() oAnnotationShape = oAnnotation.getAnnotationShape() aPosition = oAnnotationShape.getPosition() nX = aPosition.X nY = aPosition.Y aSize = oAnnotationShape.getSize() nHeight = aSize.Height nWidth = aSize.Width End Sub -- View this message in context: http://nabble.documentfoundation.org/Calc-comments-macro-tp3640099p3641797.html Sent from the Users mailing list archive at Nabble.com. -- For unsubscribe instructions e-mail to: [email protected] Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/global/users/ All messages sent to this list will be publicly archived and cannot be deleted
