Diese kleine Makro hilft vielleicht.
Rem Ein Beispiel
Sub Linien
Dim myDoc As Object
Dim myCell As Object
Dim mySheet As Object
Dim fatLineblue As new com.sun.star.table.BorderLine2
Dim Spalte As Object
Dim Zeile As Object
With fatLineBlue
.color = RGB(0, 0, 200) ' Blau (RGB)
.outerlinewidth = 70
End With
myDoc = StarDesktop.loadComponentFromURL("private:factory/scalc", "_default", 0, Array()) Rem neues Dokument
mySheet = myDoc.Sheets.getByName("Tabelle1")
myCell = mySheet.getCellByPosition(2,3) Rem Zelle ("B3")
Spalte = mySheet.Columns(2)
Spalte.Width = 1500 Rem 1,5 cm breit
Zeile = mySheet.Rows(3)
Zeile.Height = 4000 Rem 4 cn hoch
myCell.String = "Das ist der Text"
myCell.CharHeight="12"
myCell.CharFontName="Arial"
myCell.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER
myCell.VertJustify = com.sun.star.table.CellVertJustify.CENTER
myCell.RotateAngle =9000
myCell.CharWeight=150
myCell.LeftBorder = fatLineBlue
myCell.RightBorder = fatLineBlue
myCell.BottomBorder = fatLineBlue
myCell.TopBorder = fatLineBlue
myCell.DiagonalBLTR = fatLineBlue
myCell.DiagonalTLBR = fatLineBlue
End Sub
Beschreibe genauer, was du aufgezeichnest hast. Sind im Makro Abschnitte auskommentiert?
Der Makrorekorder ist eher "rudimentär" und kann keinesfalls die kompletten API Funktionen abbilden. Zudem gilt er als "experimentell". Gute Makros schreibst Du ohne Dispatcher-Code.. dann funktioniert auch alles wie gewünscht:)