[Résolu][Writer] Lire les proprietés image dans un texte

[Jean-Marc]

Bonjour,

Suite du projet décrit dans ce message

Je désire rechercher par une macro le liste des images dans un document texte, et accéder à chacune de ces images pour en vérifier les propriétés et éventuellement les afficher en icône dans une boîte de dialogue.
Je suppose qu'il y aura une instance à créer
Je ne sais pas par quel bout commencer.
Avez-vous des pistes pour commencer à m'aider,

merci

[bm92]

Bonsoir,
Pour Writer on peut récupérer les images dans le conteneur GraphicObjects.

Code: Tout sélectionner   AgrandirRéduire

Dim doc As Object
Dim lesImages As Object, uneImage As Object

doc = ThisComponent
lesImages = doc.GraphicObjects
for x = 0 to lesImages.Count -1
  uneImage = lesImages(x)
  Xray uneImage
next


Pour ce que tu cherches à faire, ce sera peut-être plus complexe

[Jean-Marc]

Merci Bernard,
J'avance,
je récupère le nom de mes images j'ai changé adapté ton précieux Code

Code: Tout sélectionner   AgrandirRéduire

lesImages = monDocument.GraphicObjects
for x = 0 to lesImages.Count -1
  uneImage = lesImages(x)
  MsgBox uneImage.name
next

Je récupère le nom des images

J'avance, maintenant au mieux je veux afficher les images dans une boite de dialogue.
Je completerai ce message demain matin, quand la nuit aura porté conseil.

je vais chercher ce qu'est ce Xray qui génère une erreur
Est- ce la procédure que je dois créer ? pour obtenir mes infos

je vais aussi bosser ce lien.
http://www.mail-archive.com/prog@fr.ope ... 06035.html

Merci en attendant

[Jeff]

Bonjour,

je vais chercher ce qu'est ce Xray

La réponse est dans les post-it de la section Macros : viewtopic.php?f=8&t=3234

A +

[Jean-Marc]

Merci Jeff

Super outil,
je pense que je vais m'en sortir sur pas mal de points