Sowohl in 5.2.2.2, 5,3,3 und 5.4 werden die im Makro aufgezeichneten folgende Anweisungen nicht ausgeführt: Die Anweisungen für Zwischenlinien ((horizontal, vertical) werden im Makro zwar durchlaufen, haben aber keine Wirkung. Das Makro wurde nach der Aufzeichnung nicht verändert.
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
Gefragt: 2017-06-09 12:16:47 +0100
Angesehen: 71 Mal
Aktualisiert: Apr 01 '18
Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.
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:)