Moin,moin,
ich bin dabei mir eine kleine lib zu bauen, mit der ich Tabellen relativ einfach erstellen kann. Ich bin mittlerweile soweit, dass ich z.B. einzelne Zellen farblich anders markieren kann usw.
Das einzige womit ich überhaupt nicht klar komme, ist die Textausrichtung der Zellen. Diese müsste ich nach Erstellen der Tabelle noch ändern können. Ist das so überhaupt möglich?
Ich kriege es einfach nicht hin, dass er mir den Text mittig ausrichtet. In der Suche finde ich nur die Möglichkeit über .appendtable den P-Style für einzelne Zellen mitzugeben. Hier mal ein Ausschnitt meines letzten Versuches mit SetPosition:
'Alignment
Call libRT_Nav.SetPosition(libRT_Nav)
Set rtParStyle = libRT_Session.CreateRichTextParagraphStyle
rtParStyle.Alignment = intAlign
Call libRT_Item.AppendParagraphStyle(rtParStyle)
'verify to which cellposition the text must written
If Ucase(Trim(strCellPosition)) = "C" Then
Call ReportWrite(Eventname & " - aktive Zelle")
Elseif Ucase(Trim(strCellPosition)) = "N" Then
Call ReportWrite(Eventname & " - nächste Zelle")
'get next cell
Call libRT_Nav.FindNextElement(RTELEM_TYPE_TABLECELL)
End If
'write the text
Call libRT_Item.BeginInsert(libRT_Nav)
Call libRT_Item.AppendText(strText)
Call libRT_Item.EndInsert
'format the cell
Call RichText_TableFormatCell(boolBold,intColor)