Frage stellen
0

Makro führt Umrandung nicht korrekt aus

gefragt 2017-06-09 12:16:47 +0100

Dliese Gravatar-Bild

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.

Bearbeiten Tags ändern Melden schließen vereinen löschen

Kommentare

Beschreibe genauer, was du aufgezeichnest hast. Sind im Makro Abschnitte auskommentiert?

Regina Gravatar-BildRegina ( 2017-06-09 15:43:32 +0100 )Bearbeiten

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:)

Toxitom Gravatar-BildToxitom ( 2017-06-09 17:35:49 +0100 )Bearbeiten

1 Antwort

0

geantwortet 2018-04-01 15:56:21 +0100

BerndRosi Gravatar-Bild

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

Bearbeiten Melden löschen Link mehr
Registrieren oder einloggen, um zu antworten

Antwortwerkzeuge

1 Beobachter

Statistik

Gefragt: 2017-06-09 12:16:47 +0100

Angesehen: 71 Mal

Aktualisiert: Apr 01 '18