Hallo zusammen,
ich plage mich gerade mal wieder mit dem Objektkatalog von OOBasic
bzw. des API herum und komme an folgender Stelle nicht weiter:
Ich habe in ein Draw Dokument per Makro einen TextShape eingfügt.
Größe und Position bekommen ich wunderbar hin, auch das
"Reinschreiben" des Textes klapp. Mir gelingt es aber nicht den Text
aus der oberen linken Ecke des Shapes nach "unten mitte" zu bugsieren.
Von Hand mache ich das in dem ich erst im Dialogfeld "Text" die
"Textverankerung" auf "unten stelle" und die Checkbox "Ganze Breite"
aktiviere und dann noch den den Absatz zentriere (Dialogfeld Absatz).
Nur weche Eigenschaften des TextShape-Objektes muss ich dafür in OOBasic ändern?
Hier der Quellcode, soweit ich bin (oDoc:
oDoc = ThisComponent
oPage = oDrawing(0)
oTitle = oDoc.createInstance("com.sun.star.drawing.TextShape")
oPage.Add(oTitle)
With oTitle
.Position = CreatePoint(0,oPage.Height / nTabs% * (ActiveCardnumber - 1))
.Size = CreateSize((pagewidth! + registeroverlap!)*1000,
oPage.Height / nTabs% / 2)
.String = "Title"
.Name = "Title"
.CharHeight = 30
.ParaAdjust = CENTER
.TextVerticalAdjust = BOTTOM
End With
Das "ParaAdjust = CENTER" sollte - so denn ich die API-Dokumentation
richtig verstanden habe - das "Absatz zentrierte" realisieren, tut es
aber nicht! Wenn ich nach Ablauf des Makros ins Dialogfeld "Absatz"
gehe, steht dieser aus der Standardeinstellung "Links". Selbiger
Effekt gilt für "TextVerticalAdjust = BOTTOM" - der Text bleibt oben.
Für das Häckchen "GanzeBreite" habe ich noch garnichts gefunden, was
dem in OOBasic entsprechen könnte.
Herzlichen Dank schon mal Antworten und Hilfe
Gruß Lars
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
