Bonsoir,
j'ai crée le code suivant dans Word VBA :
Code :
- Dim Image As InlineShape
- ' sélectionne image
- Dim i As Integer
- Dim n As Integer
- n = ActiveDocument.InlineShapes.Count
- For i = 1 To n
- ActiveDocument.InlineShapes(i).Select
- ' traitement
- Next i
- End Sub
|
Je voudrai, lorsque je sélectionne une image, vérifier si son lien hypertexte n'est pas égal à telle valeur, et si c'est le cas, faire une copie de l'image (selection.copy).
Pourriez-vous m'aider à trouver le code? Merci d'avance. Arsène.