petit1986
Messages postés9Date d'inscriptionvendredi 6 novembre 2009StatutMembreDernière intervention18 janvier 2011
-
15 sept. 2010 à 11:13
petit1986
Messages postés9Date d'inscriptionvendredi 6 novembre 2009StatutMembreDernière intervention18 janvier 2011
-
16 sept. 2010 à 12:47
Bonjour, et merci de vous pencher sur mon petit soucis !
Donc voilà, je cherche à remplacer certaines images d'un document Word 2007 par un texte.
Je devrais pouvoir m'en sortir à condition que je sache comment on sélectionne toutes les InelineShapes ayant pour chemin d'accès "C:/blablabla/image.jpg" et étant présente dans le document ?
Je ne veux pas que les autres InelineShapes de ce document soit sélectionnées !
Avez vous une piste de solution ?
D'avance merci.
petit1986
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 15 sept. 2010 à 15:00
Salut
En VB.Net ?
Je ne connais pas les objets InelineShape :
- Quel attribut de cet objet permet de retrouver le chemin dont tu parles ?
.FileName ?
- A quelle collection appartiennent-ils ?
Une fois que tu auras ces infos, une simple boucle d'énumération suffit
Dim oShape As InelineShape
For Each oShape In ThisDocument.CollectionDeInelineShapes
If oShape.FileName = "C:\mon chemin\fichier.jpg" Then
MsgBox oShape.Name & " est lié au fichier"
End If
Next
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
petit1986
Messages postés9Date d'inscriptionvendredi 6 novembre 2009StatutMembreDernière intervention18 janvier 2011 15 sept. 2010 à 16:29
En effet pas en VBnet mais en VBA ! J'imagine qu'il y a une différence notable si tu me le fait remarquer. Je n'ai pas trouver l'espace du forum VBA ! Je dois être un peu aveugle...
Sinon, ton code ne fonctionne pas, il faut mettre un "s" au premier "InelineShapeS" mais çà j'avais quand même trouvé, et il me dit que le "oShape.File" --> "Erreur de compilation : membre de méthode ou de données introuvable" ! Héhé, çà veut dire quoi ? Comment résoudre le pb ?
En tout cas merci d'avance de t'être interressé à mon pb !
Petit1986
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 15 sept. 2010 à 20:24
Avant d'appliquer le code, il faut répondre aux 2 questions :
- Comment s'appelle la collection qui renferme ces objets
- Comment retrouver le nom du fichier associé à un objet
Ces deux infos doivent se trouver dans l'aide.
Alors seulement, tu pourras tester le code (après avoir remplacé les noms que j'ai utilisé par les deux réponses)
petit1986
Messages postés9Date d'inscriptionvendredi 6 novembre 2009StatutMembreDernière intervention18 janvier 2011 16 sept. 2010 à 12:47
OUais... bah j'ai pas de "collection" !
Enfin si j'en ai une, je ne le sais pas ou je ne l'ai pas fait exprès ! Je pense qu'en VBA elle ne doit pas être obligatoire alors en VB net elle doit l'être et donc je ne comprends pas tes questions !
Mais merci quand même...