7.1.16 Wie kann man diagonale Striche in eine Zelle einfügen?
Man kann einzelne Zellen mit diagonalen Linien versehen. Mit zwei Linen (Kreuz) oder nur einer.
Dazu wird eine Rahmenlinie und die Propertie DiagonalXXX der Zelle verwendet.

   mLine = createUnoStruct( "com.sun.star.table.BorderLine" )
   mLine.Color = 0
   mLine.InnerLineWidth = 25
   myDoc = thisComponent
   mySheet = myDoc.sheets(0)
   mycell = mysheet.getCellByPosition(0,0)
' TLBR = Top Left to Bottom Right - Links oben nach rechts unten
   mycell.DiagonalTLBR=mLine
' BLTR = Bottom Left to Top Right - Links unten nach rechts oben
   mycell.DiagonalBLTR=mLine

Um eine Linie wieder zu löschen muß man die Linienweite auf 0 setzen
   mLine.InnerLineWidth = 25

Führt man den Befehle über einen Bereich aus werden alle Zellen einzelnen mit Linien versehen.
Seitenanfang