[Solved] Shape: getting its position and width

[kaggb]

could anyone tell me how given a rectangle drawn on a spreadsheet what the method is for getting its position on the document and the width of it

[FJCC]

Given a single rectangle, this appears to work. If there are several, you would have to know the index of the one you are interested in.

Code: Select all

Sub Main
Dim Doc, Sheet, Rect as Object
Dim Pos as New com.sun.star.awt.Point
Dim Size as New com.sun.star.awt.Size

Doc = ThisComponent
Sheet = Doc.Sheets(0)
Rect = Sheet.DrawPage.getByIndex(0)
Pos = Rect.Position
Size = Rect.Size
Print Pos.X
Print Pos.Y
Print Size.Width 
Print Size.Height

End Sub

[kaggb]

perfect. thank you.