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]
