Merci beaucoup.
Cela fonctionne correctement.
Michel
Bernard Marcelly <[EMAIL PROTECTED]> a écrit sur 28/04/2008
14:52:44 :
> Message de [EMAIL PROTECTED] 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
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
