gmane.comp.openoffice.devel.french

m.grimault | 28 Apr 14:16

Suppression d'une forme dans Calc


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 )

(Continue reading)

headers

Bernard Marcelly | 28 Apr 14:52

Re: Suppression d'une forme dans Calc

Message de m.grimault <at> cnafmail.fr  date 2008-04-28 14:17 :

> 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".
> 

Le livre a non seulement des exemples de codages, mais aussi du texte 
explicatif. Relire le paragraphe "Trouver une forme nommée" (pages 
410-411). Les exemples qui suivent sont basés dessus.
La fonction FindObjectByName est mise dans la bibliothèque Standard des 
fichiers exemples du livre.

    Bernard

headers

m.grimault | 28 Apr 15:57

Re: Suppression d'une forme dans Calc

Merci beaucoup.
Cela fonctionne correctement.

      Michel

Bernard Marcelly <marcelly <at> club-internet.fr> a écrit sur 28/04/2008
14:52:44 :

> Message de m.grimault <at> cnafmail.fr  date 2008-04-28 14:17 :
>
> > 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".
> >
>

(Continue reading)