Discussion :

[ozyamdias]

Bonjour à tous,

J'ai un petit soucis avec Word.
Je suis en train d'écire une macro me permettant de selectionner toutes les images présentent dans mon document et de les ajuster en fonction de la taille de ma page (par exemple A3 - paysage).

Je ne sais pas comment m'y prendre pour réaliser cette fonction.
J'ai quelques idées, les voici :

Pour récupérer la taille restant de ma page :

Code :

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

1
2
3
4
5
 
With ActiveDocument.PageSetup
        HauteurRestante = .PageHeight - .TopMargin - .BottomMargin - . HeaderDistance - .FooterDistance
        LargeurRestante = .PageWidth - .LeftMargin - .RightMargin
    End With

Par contre je ne sais pas comment selectionner toutes les images de mon doc et effectuer le redimensionnement.

Pouvez-vous m'aider ?

Merci
Ozyamdias

PS : j'utilise Word2000

[ozyamdias]

Voilà ce que j'ai fais pour l'instant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub resizepics()
 
    ' Sélectionner la page contenant l'image
    Dim Pics As InlineShape
 
    For Each Pics In ActiveDocument.InlineShapes
 
        ' Selectionner l'image
        Selection.InlineShapes
 
        ' Recupérer l'espace restant sur la page ciblée
        With ActiveDocument.PageSetup
 
            HauteurRestant = .PageHeight - .TopMargin - .BottomMargin - .HeaderDistance - .FooterDistance
            LargeurRestant = .PageWidth - .LeftMargin - .RightMargin
 
        End With
 
         ' Redimensionner l'image
 
 
    Next
 
End Sub