Bonjour,
Dans une feuille Calc, je veux masquer une partie des éléments de manière
provisoire.
J'ai donc créé par le biais de la procédure ci-dessous un rectangle qui se
positionne là où je le souhaite avec les dimensions attendues.
Dim oDocument as Object
Dim oFeuilSimu as Object
Dim oPageSimu as Object
Dim dimensionForme As New com.sun.star.awt.Size
Dim positionForme As New com.sun.star.awt.Point
Dim oForme As Object
Sub Masquer()
oDocument = thisComponent
oFeuilSimu = oDocument.Sheets.getByName( "Simu" )
oPageSimu = oFeuilSimu.DrawPage
dimensionForme.Width = 15820
dimensionForme.Height = 46550
positionForme.x = 12950
positionForme.y = 5700
oForme = oDocument.createInstance(
"com.sun.star.drawing.RectangleShape" )
oForme.Size = dimensionForme
oPageSimu.add( oForme )
oForme.Position = positionForme
oForme.Name = "Rectang1"
End Sub
Ensuite, je veux pouvoir supprimer cette forme et j'ai écrit la procédure
suivante en m'inspirant du livre de Bernard et Laurent "Programmation
OpenOffice" :
Sub Afficher()
oPageSimu = oFeuilSimu.DrawPage
oForme = FindObjectByName( oPageSimu, "Rectang1" )
oDocument.CurrentController.Select( oForme )
oPageSimu.remove( oForme )
End Sub
La macro s'arrête sur la ligne oForme = FindObjectByName( oPageSimu,
"Rectang1" ) avec le message : "Sous-procédure ou procédure de fonction non
définie".
Est-ce que quelqu'un peut m'aider à résoudre ce problème ?
D'avance merci.
Michel GRIMAULT
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
