Qq morceaux de code openOffice pour entourer des cellules dans
un classeur. Je me les envoie à moi-même et je les fais passer
par la liste clgestion-dev au cas où d'autres soient intéressés!
JC
Appel :
styleTitre (lvCellule, "N°", Array (0,0,88,0), Array
(0,0,88,0), Array (0,0,2,0), Array (0,0,88,0))
Procedure :
sub styleTitre (prCellule as object, pvContenu as string,
prGche(), prHaut(), prDrte(), prBas())
dim lvBordure As Object
prCellule.setString (pvContenu)
prCellule.CharFontPitch = 2
prCellule.CharFontName = "Bitstream Vera Sans"
prCellule.CharHeight = 14
prCellule.CharRelief = 1
lvBordure = createUnoStruct ("com.sun.star.table.BorderLine")
lvBordure.Color = prGche (0)
lvBordure.InnerLineWidth = prGche (1)
lvBordure.OuterLineWidth = prGche (2)
lvBordure.LineDistance = prGche (3)
prCellule.LeftBorder = lvBordure
lvBordure.Color = prHaut (0)
lvBordure.InnerLineWidth = prHaut (1)
lvBordure.OuterLineWidth = prHaut (2)
lvBordure.LineDistance = prHaut (3)
prCellule.TopBorder = lvBordure
lvBordure.Color = prDrte (0)
lvBordure.InnerLineWidth = prDrte (1)
lvBordure.OuterLineWidth = prDrte (2)
lvBordure.LineDistance = prDrte (3)
prCellule.RightBorder = lvBordure
lvBordure.Color = prBas (0)
lvBordure.InnerLineWidth = prBas (1)
lvBordure.OuterLineWidth = prBas (2)
lvBordure.LineDistance = prBas (3)
prCellule.BottomBorder = lvBordure
end sub
Accédez au courrier électronique de La Poste : www.laposte.net ;
3615 LAPOSTENET (0,34/mn) ; tél : 08 92 68 13 50 (0,34/mn)
