Suite...
En complément un exemple utilisant une structure BorderLine2
pour modifier cette fois une cellule:
sub PysBorderCell
dim PysTable as object
dim PysCell as object
dim PysLine as new com.sun.star.table.BorderLine2
with PysLine
.Color = 0
.InnerLineWidth = 10
.LineDistance = 60
.LineStyle = com.sun.star.table.BorderLineStyle.DOUBLE
.LineWidth = 2
.OuterLineWidth = 10
end with
PysTable = thiscomponent.TextTables.getByName("Tableau1")
PysCell = PysTable.getCellByName("B2")
with PysCell
.LeftBorder = PysLine
.LeftBorderDistance = 100
.RightBorder = PysLine
.RightBorderDistance = 100
.TopBorder = PysLine
.TopBorderDistance = 100
.BottomBorder = PysLine
.BottomBorderDistance = 100
end with
end sub
--
View this message in context:
http://nabble.documentfoundation.org/macro-bordure-de-tableau-dans-Writer-tp4009763p4010102.html
Sent from the Users mailing list archive at Nabble.com.
--
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être
supprimés