Hallo Jörg,
Jörg Schmidt wrote:
Hallo,
Gisbert Friege schrieb:
Dann wollte ich diesen "Umrandungsstil" auf das nächste 3*3-Feld
übertragen, aber es gibt im Sylisten keine "Umrandungsvorlage".
Du mußt das als Autoformatvorlage speichern. Ich habe es gerade probiert
und es geht ingesamt so:
*9x9 Tabelle zeichnen
*3x3-Bereich markieren und alle Linien dick machen und bestätigen
*3x3 Bereich markiert lassen, ein e dünne Linienstärke wählen und im
Dialog in derMiniaturtabellendarstellung nur die inneren Linien
anklicken um diese dünn zu machen und bestätigen
*3x3 Bereich sieht nun aus wie gewünscht, markiert Lassen
*Format-Autoformat aufrufen und Namen vergeben
*anderen 3x3 Bereich markieren und das gerade erstellte Autoformat
anwenden
Vielen Dank für die Mühe ! - das funktioniert so wie ich es mir gedacht
hatte.
Ein paar Wermutstropfen hat das Verfahren ja:
- Autoformat ist nicht über das Tabellen-Kontextmenü erreichbar
- das neue Autoformat muss jedesmal neu in der Liste ausgesucht werden
- "Autoformat anwenden" ist nicht per Makrorekorder aufzeichenbar
Wer weiß, mit welchen Makrobefehlen sich die inneren Linien eines
ausgewählten Tabellenteils in der Dicke verändern lassen -
bzw. wie man
sie unverändert lassen kann, wenn man nur den äußeren Rand verändern
möchte ?
Wenn das wichtig ist melde Dich nochmal. Es ist hier so heiß und ich
habe keine Lust. Gehen tut es über Left-, Hight-, Top-, BottomBorder der
Zelle mit den Eigenschaften:
Nein, es ist mir nicht so wichtig dass jemand dafür Zeit opfern sollte.
Wie gesagt: Ferienspielerei - und das nur wenn es nicht zu heiß ist ;-)
Mich wundert nämlich, dass
sub sodukoInnen
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(4) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BorderInner.Horizontal"
args1(0).Value = Array(0,0,35,0)
args1(1).Name = "BorderInner.Vertical"
args1(1).Value = Array(0,0,35,0)
args1(2).Name = "BorderInner.Flags"
args1(2).Value = 3
args1(3).Name = "BorderInner.ValidFlags"
args1(3).Value = 127
args1(4).Name = "BorderInner.DefaultDistance"
args1(4).Value = 0
dispatcher.executeDispatch(document, ".uno:BorderInner", "", 0, args1())
end sub
_gar_ _nichts_ macht, und
sub sodukoAussen
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(7) as new com.sun.star.beans.PropertyValue
args2(0).Name = "BorderOuter.LeftBorder"
args2(0).Value = Array(35,35,35,35)
args2(1).Name = "BorderOuter.LeftDistance"
args2(1).Value = 97
args2(2).Name = "BorderOuter.RightBorder"
args2(2).Value = Array(0,0,35,0)
args2(3).Name = "BorderOuter.RightDistance"
args2(3).Value = 97
args2(4).Name = "BorderOuter.TopBorder"
args2(4).Value = Array(0,0,35,0)
args2(5).Name = "BorderOuter.TopDistance"
args2(5).Value = 97
args2(6).Name = "BorderOuter.BottomBorder"
args2(6).Value = Array(0,0,35,0)
args2(7).Name = "BorderOuter.BottomDistance"
args2(7).Value = 97
dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args2())
end sub
zwar die äußeren Ränder richtig setzt, aber gleichzeitig die inneren
Ränder völlig entfernt (!).
• Color – Specify the color of the line.
• InnerLineWidth – Specify the inner width of a double line (in 0.01
mm). If zero, a
single line is drawn.
• OuterLineWidth – Specify the width of a single line or the outer width
of a double
line (in 0.01 mm). If zero, no line is drawn.
• LineDistance – Specify the distance between the inner and outer parts
of a
double line (in 0.01 mm).
Gruß
Jörg
--
/ \
gruss \ / ASCII Ribbon Campaign
gisbert friege X Against HTML Mail
/ \
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
