cybertom87 | Pendant que j'y suis, je rajoute une deuxième question sur les macros OOO...
Je souhaite ajouter des bordures à une sélection de cellules, via le code suivant (copié de l'enregistrement auto des macros) :
Code :
- rem ---------- Sélection des cellules --------------
- dim args100(0) as new com.sun.star.beans.PropertyValue
- args100(0).Name = "ToPoint"
- args100(0).Value = "$B$2:$F$19"
- dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args100())
- rem -------------------- Bordures extérieures fines noires ---------------------
- dim args200(7) as new com.sun.star.beans.PropertyValue
- args200(0).Name = "BorderOuter.LeftBorder"
- args200(0).Value = Array(0,0,18,0)
- args200(1).Name = "BorderOuter.LeftDistance"
- args200(1).Value = 0
- args200(2).Name = "BorderOuter.RightBorder"
- args200(2).Value = Array(0,0,18,0)
- args200(3).Name = "BorderOuter.RightDistance"
- args200(3).Value = 0
- args200(4).Name = "BorderOuter.TopBorder"
- args200(4).Value = Array(0,0,18,0)
- args200(5).Name = "BorderOuter.TopDistance"
- args200(5).Value = 0
- args200(6).Name = "BorderOuter.BottomBorder"
- args200(6).Value = Array(0,0,18,0)
- args200(7).Name = "BorderOuter.BottomDistance"
- args200(7).Value = 0
- dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args200())
- rem ------------------- Bordures intérieures larges blanches ----------------------
- dim args300(4) as new com.sun.star.beans.PropertyValue
- args300(0).Name = "BorderInner.Horizontal"
- args300(0).Value = Array(16777215,0,88,0)
- args300(1).Name = "BorderInner.Vertical"
- args300(1).Value = Array(16777215,0,88,0)
- args300(2).Name = "BorderInner.Flags"
- args300(2).Value = 3
- args300(3).Name = "BorderInner.ValidFlags"
- args300(3).Value = 127
- args300(4).Name = "BorderInner.DefaultDistance"
- args300(4).Value = 0
- dispatcher.executeDispatch(document, ".uno:BorderInner", "", 0, args300())
|
Les bordures extérieures sont faites correctement, mais celles intérieures ne sont pas faites !
Une idée ? |
