faire une macro pour redimensionner des images sur un word avec une condition sur le numéro de page

Bonjour,

Je souhaite faire une macro qui me permet de redimensionner la taille des images sur un fichier word. Cependant je souhaite qu'il le fasse que à partir d'un numéro de page précis (ce numéro est changeant).

Pour l'instant j'ai ceci qui me permet de les redimensionner mais je n'arrive pas à utiliser le numéro de page d'un fichier word comme une variable. Pouvez vous m'aider?

For Each Image In ActiveDocument.InlineShapes

Image.Width = 500
Image.Height = 650
Next

Bonjour,
Ce n'est pas vraiment le bon forum mais voici un exemple d'un redimensionnement des images à partir de la page 4 du document Word actif

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub t() Dim Image As InlineShape Dim StartPage As Long StartPage = 4 For Each Image In ActiveDocument.InlineShapes If Image.Range.Information(wdActiveEndAdjustedPageNumber) >= StartPage Then Image.Width = 200 Image.Height = 350 End If Next Set Image = Nothing End Sub

---