[Résolu][Calc] Bordures intérieures ne paraissent pas

[AUBRY]

Pour la bonne tenue de ce forum, veillez à respecter la syntaxe des balises (première lettre en majuscule puis le reste en minuscules, le tout entre crochets).
Le terme Macro est inutile dans la section macros

Bonjour,
J'enregistre une macro pour faire des bordures intérieures et extérieures dans un tableau.
L'enregistrement se passe bien et le résultat est celui que je souhaite.

Lorsque je relance la macro, les bordures extérieures apparaissent et les bordures intérieures ne sont pas là.
Je fais des recherches depuis plusieurs heures et je n'ai pas trouvé de solutions.

Code : Tout sélectionner

sub test
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$15"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$B$15:$E$19"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(7) as new com.sun.star.beans.PropertyValue
args3(0).Name = "BorderOuter.LeftBorder"
args3(0).Value = Array(0,0,62,0,0,62)
args3(1).Name = "BorderOuter.LeftDistance"
args3(1).Value = 0
args3(2).Name = "BorderOuter.RightBorder"
args3(2).Value = Array(0,0,62,0,0,62)
args3(3).Name = "BorderOuter.RightDistance"
args3(3).Value = 0
args3(4).Name = "BorderOuter.TopBorder"
args3(4).Value = Array(0,0,62,0,0,62)
args3(5).Name = "BorderOuter.TopDistance"
args3(5).Value = 0
args3(6).Name = "BorderOuter.BottomBorder"
args3(6).Value = Array(0,0,62,0,0,62)
args3(7).Name = "BorderOuter.BottomDistance"
args3(7).Value = 0

dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(4) as new com.sun.star.beans.PropertyValue
args4(0).Name = "BorderInner.Horizontal"
args4(0).Value = Array(0,0,62,0,0,62)
args4(1).Name = "BorderInner.Vertical"
args4(1).Value = Array(0,0,62,0,0,62)
args4(2).Name = "BorderInner.Flags"
args4(2).Value = 3
args4(3).Name = "BorderInner.ValidFlags"
args4(3).Value = 127
args4(4).Name = "BorderInner.DefaultDistance"
args4(4).Value = 0

dispatcher.executeDispatch(document, ".uno:BorderInner", "", 0, args4())
end sub

Que signifie les 6 paramètres dans Array, le 3é et le 6è sont les épaisseurs du trait mais les autres ?
et la value de "BorderInner.Flags" et de "BorderInner.ValidFlags" ?

D'avance merci de votre réponse.

[Noonours]

Bonjour
Tu peux regrouper les propriétés des bordures intérieures et extérieures avec l'objet UNO "SetBorderStyle"
Ca donnerait: (toujours avec l'enregistreur de macros)

Code : Tout sélectionner

sub test
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$15:$E$19"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(12) as new com.sun.star.beans.PropertyValue
args2(0).Name = "OuterBorder.LeftBorder"
args2(0).Value = Array(0,0,2,0,0,2)
args2(1).Name = "OuterBorder.LeftDistance"
args2(1).Value = 0
args2(2).Name = "OuterBorder.RightBorder"
args2(2).Value = Array(0,0,2,0,0,2)
args2(3).Name = "OuterBorder.RightDistance"
args2(3).Value = 0
args2(4).Name = "OuterBorder.TopBorder"
args2(4).Value = Array(0,0,2,0,0,2)
args2(5).Name = "OuterBorder.TopDistance"
args2(5).Value = 0
args2(6).Name = "OuterBorder.BottomBorder"
args2(6).Value = Array(0,0,2,0,0,2)
args2(7).Name = "OuterBorder.BottomDistance"
args2(7).Value = 0
args2(8).Name = "InnerBorder.Horizontal"
args2(8).Value = Array(0,0,2,0,0,2)
args2(9).Name = "InnerBorder.Vertical"
args2(9).Value = Array(0,0,2,0,0,2)
args2(10).Name = "InnerBorder.Flags"
args2(10).Value = 0
args2(11).Name = "InnerBorder.ValidFlags"
args2(11).Value = 127
args2(12).Name = "InnerBorder.DefaultDistance"
args2(12).Value = 0

dispatcher.executeDispatch(document, ".uno:SetBorderStyle", "", 0, args2())

end sub

[Hubert Lambert]

Bonjour,

Que signifie les 6 paramètres dans Array, le 3é et le 6è sont les épaisseurs du trait mais les autres ?

Ces paramètres correspondent aux attributs d'un objet "BorderLine" (voir https://api.libreoffice.org/docs/idl/re ... rLine.html et https://api.libreoffice.org/docs/idl/re ... Line2.html).
Dans l'ordre :
- la couleur;
- l'épaisseur de la ligne intérieure en cas de ligne double, en 100es de mm;
- l'épaisseur de la ligne simple ou de la ligne extérieure en cas de ligne double, en 100es de mm;
- l'interdistance en cas de ligne double, en 100es de mm;
- le style de ligne (voir https://api.libreoffice.org/docs/idl/re ... Style.html);
- l'épaisseur de la ligne (unité non précisée) : cette valeur prévaut sur les précédentes si elle est fournie et le calcul se fait automatiquement sur base du style de ligne.

Les deux derniers attributs sont spécifiques à LibreOffice.

Cordialement.

[AUBRY]

Bonjour Nounours,

Je te remercie pour ta réponse qui est la solution que je souhaitais.

Je viens de comparer les 2 macro. J'ai noté que le nom des bordures est inversé "OuterBorder" et "BorderOuter",
le regroupement des bordures intérieures et extérieures et l'instruction ".uno:SetBorderStyle" que je n'ai pas
trouvé dans mes recherches sur les différents forums.

Encore merci pour ta solution.


Pour micmac, j'ai bien noté tes remarques.

[AUBRY]

Bonjour Hubert Lambert,

Je te remercie pour les compléments d'information que tu as donnés avec les 3 liens, lesquels je n'avais jamais vu dans mes recherches.

Encore merci.

Je clôture le sujet.

[micmac]

Comment clore un sujet correctement lorsqu'il est résolu