Macro Calc (Open Office) : ajuster du texte

Macro Calc (Open Office) : ajuster du texte - Logiciels - Windows & Software

Marsh Posté le 07-10-2008 à 23:21:29    

Bonjour,
 
je souhaite intégrer dans une macro l'équivalent de l'action :
Clic droit sur une sélection/Formatter les cellules... /Alignement/Propriétés :  Décoche "Renvoi à la ligne auto" puis Coche "Ajuster"
 
Je ne trouve pas le code permettant de faire ça. J'ai essayé de faire une macro incluant uniquement cette action en l'enregistrant, mais rien ne ressort concernant "Ajuster", on voit juste le wordwrap qui s'active ou non ...
 
Quelqu'un connait la solution ?
 
Merci

Reply

Marsh Posté le 07-10-2008 à 23:21:29   

Reply

Marsh Posté le 08-10-2008 à 00:38:21    

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 :
  1. rem ---------- Sélection des cellules --------------
  2. dim args100(0) as new com.sun.star.beans.PropertyValue
  3. args100(0).Name = "ToPoint"
  4. args100(0).Value = "$B$2:$F$19"
  6. dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args100())
  8. rem -------------------- Bordures extérieures fines noires ---------------------
  9. dim args200(7) as new com.sun.star.beans.PropertyValue
  10. args200(0).Name = "BorderOuter.LeftBorder"
  11. args200(0).Value = Array(0,0,18,0)
  12. args200(1).Name = "BorderOuter.LeftDistance"
  13. args200(1).Value = 0
  14. args200(2).Name = "BorderOuter.RightBorder"
  15. args200(2).Value = Array(0,0,18,0)
  16. args200(3).Name = "BorderOuter.RightDistance"
  17. args200(3).Value = 0
  18. args200(4).Name = "BorderOuter.TopBorder"
  19. args200(4).Value = Array(0,0,18,0)
  20. args200(5).Name = "BorderOuter.TopDistance"
  21. args200(5).Value = 0
  22. args200(6).Name = "BorderOuter.BottomBorder"
  23. args200(6).Value = Array(0,0,18,0)
  24. args200(7).Name = "BorderOuter.BottomDistance"
  25. args200(7).Value = 0
  27. dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args200())
  29. rem ------------------- Bordures intérieures larges blanches ----------------------
  30. dim args300(4) as new com.sun.star.beans.PropertyValue
  31. args300(0).Name = "BorderInner.Horizontal"
  32. args300(0).Value = Array(16777215,0,88,0)
  33. args300(1).Name = "BorderInner.Vertical"
  34. args300(1).Value = Array(16777215,0,88,0)
  35. args300(2).Name = "BorderInner.Flags"
  36. args300(2).Value = 3
  37. args300(3).Name = "BorderInner.ValidFlags"
  38. args300(3).Value = 127
  39. args300(4).Name = "BorderInner.DefaultDistance"
  40. args300(4).Value = 0
  42. 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 ?

Reply

Marsh Posté le 09-10-2008 à 23:38:24    

up...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed