[libreoffice-users] Re: Calc - comments / macro

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: users+help@global.libreoffice.org
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