Bonjour,
Pour ce qui concerne les macros je t'invite à poster sur la liste
prog@fr.openoffice.org
où il est plus facile de suivre ce genre de demandes et où tu obtiendras
potentiellement plus de réponses.
Pascal Duterme a écrit :
Bonjour,
J'utiliise pour le planning horaire d'une équipe de travail une feuille
calc, avec quelques routines dont une qui permet d'insérer des
annotations avec des remarques définies par l'utilisateur.
Si l'annotation se met correctement, après peu de temps, la couleur de
l'annotation disparaît (le fond devient transparent et peu lisible) et
l'annotation se déplace loin de la cellule. Comment est-il possible de
fixer définitivement le format des annotations?
Pascal
J'avais essayé ceci :
Sub Main
Dim oSheet as object
Dim oCell as object
oSheet = ThisComponent.getSheets().getByIndex(0)
oCell = oSheet.getCellByPosition(5, 19)
oCell.string = "coucou"
'xray oCell
oCell.Annotation.string = "la note à coucou"
End Sub
Mais c'est franchement pas glop ;)
Alors, j'ai écris les notes ainsi, et n'ai pas remarqué de désagrément.
Sub testNote
dim oDoc as object
dim oLesFeuilles as object
dim oLaFeuille as object
dim oCellule as object
dim sNomFeuille as string
dim sAdresseCellule as string
dim sTexte as string
Dim sPos as new com.sun.star.table.CellAddress
sNomFeuille = "Feuille1"
sAdresseCellule = "C4"
sTexte = "la note à coucou"
oCellule = ThisComponent.sheets.getByName( sNomFeuille
).getCellRangeByName( sAdresseCellule )
InsererAnnotation( oCellule, sTexte )
End Sub
Sub InsererAnnotation( oCell as Object, sText as String )
Dim sPos as new com.sun.star.table.CellAddress
sPos.Sheet = oCell.RangeAddress.Sheet
sPos.Column = oCell.RangeAddress.StartColumn
sPos.Row = oCell.RangeAddress.StartRow
oCell.Spreadsheet.Annotations.insertNew( sPos, sText )
end sub
--
Francois GATTO
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]