Merci beaucoup.
Cela fonctionne correctement.
Michel
Bernard Marcelly <marc...@club-internet.fr> a écrit sur 28/04/2008
14:52:44 :
Message de m.gr...@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
3 messages in org.openoffice.fr.progRe: [prog] Suppression d'une forme da...
