Martin Blaizot a écrit :
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
Re-re....bonjour,
Voir macro ci-dessous.
Il faut nommer les formes auparavant (MonCadre1.Name = "cadre1").
Elle recense toutes les formes y compris d'éventuels diagrammes ou autres.
'---------------------------------------------
Sub RechercherFormes
dim MonDocument as object
dim maPage As Object, uneForme As Object
dim n as integer
MonDocument = thisComponent
maPage = monDocument.DrawPage
print "nombre de formes : " & maPage.count
for n=0 to maPage.count-1
uneForme = maPage(n)
MonDocument.CurrentController.Select(uneForme)
print uneForme.Name
next
End sub
'---------------------------------------------
Agnès S.
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org