Discussion :

[bayco]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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