I use English USA locale. Consider the following Calc macro that sets
line starts and line ends based on the name (which I assume is the
correct way to do this). Will this work in other languages such as
German, French, Russian, Polish, Chinese?
Sub InsertLineInCalcDocument
Dim oLine
Dim oCell1
Dim oCell2
Dim oSheet
Dim oPos as new com.sun.star.awt.Point
Dim oSize as new com.sun.star.awt.Size
Dim oPage
oSheet = ThisComponent.Sheets(0)
oCell1 = oSheet.getCellByPosition(1, 1)
oCell2 = oSheet.getCellByPosition(3, 3)
oLine = ThisComponent.createInstance("com.sun.star.drawing.LineShape")
oPos.x = oCell1.Position.X
oPos.y = oCell1.Position.Y
oLine.Position = oPos
oSize.Width = oCell2.Position.X - oCell1.Position.X
oSize.Height = oCell2.Position.Y - oCell1.Position.Y
oLine.Size = oSize
oLine.LineWidth = 4
oLine.LineColor = RGB(128, 0, 0)
oPage = oSheet.getDrawPage()
oPage.add(oLine)
REM You must do this AFTER inserting the line into the page.
oLine.LineEndName = "Arrow"
oLine.LineStartName = "Double Arrow"
End Sub
--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
Info: http://www.pitonyak.org/oo.php
--
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help
