Bonjour, Après avoir analysé votre document, il semble que pour une raison inconnue, le type de ligne sélectionné soit "Invisible". Peut être votre macro modifie-elle cette propriété quelque part.
Voici un bout de code permettant de réafficher vos cadres : sub test dim index as long dim dp as object dim aShape as object dp = thisComponent.drawPage for index = 0 to (dp.count - 1) aShape = dp.getByIndex(index) if (aShape.shapeType = "com.sun.star.drawing.RectangleShape") then dp.getByIndex(index).lineStyle = com.sun.star.drawing.LineStyle.SOLID end if next end sub Pour analyser un object (une collection ou autre), je vous conseille d'utiliser l'outil Xray, disponible ici : http://www.ooomacros.org/dev.php#101416 Cordialement, T. Vataire ----- Mail Original ----- De: "Martin Blaizot" <martin.blai...@wanadoo.fr> À: prog@fr.openoffice.org Envoyé: Vendredi 18 Juin 2010 12:19:12 Objet: Re: [prog] Affichage d'un cadre dans document texte Re-bonjour, Je ne passe aucun argument avec propFich. Juste le code de mon précédent mail. Pour analyser le contenu de la collection de formes de dessin je fais comment ? par macro ? Martin --------------------------------------------------------------------- To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org --------------------------------------------------------------------- To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org