Hi,
Ich kann jetzt meine Linie mitten im Text zeichnen. Der Wert für Umlauf soll
Durchlauf sein.
Doch anscheinend wird mein Versuch diesen Wert zu setzen ignoriert.
Size.Width = 1500
Size.Height = 900
RS = Doc.createInstance("com.sun.star.drawing.LineShape")
RS.Size = Size
RS.TextWrap = com.sun.star.text.WrapTextMode.THROUGHT
Doc.Text.insertTextContent(Cursor, RS, False)
Was mache ich falsch?
Erzeugst Du auch das Objekt für Size?
Dim Size As New com.sun.star.awt.Size
Size.Width = 1500
Size.Height = 900
RS.Size=Size
mfg
Michael
--
FAQ zu Starbasic -> http://www.starbasicfaq.de
Volltextsuche in SO/OOo -> http://www.dannenhoefer.de/down
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
