Discussion :

[C15nantes]

Bonjour à tous et à toutes,

Régulièrement je crée des documents Word dans lesquels j'insère des copies écran.

Je voudrais faire une macro qui, pour toutes ces copies écran me rogne le haut et le bas

J'ai trouvé la méthode Crop

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub rognage()
'
' rognage Macro
'
'
 
ActiveDocument.InlineShapes(11).PictureFormat.CropTop = 100
ActiveDocument.InlineShapes(11).PictureFormat.CropBottom = 100
 
 
End Sub

Cet essai a fonctionné sur l'image 11 mais pas les bonnes dimensions, je ne sais pas comment l'appliquer à l'ensemble de mes images.

1 Mon document peut contenir de 1 à 20 images

2 Ces images font initialement 13,89 cm en hauteur
en haut je veux enlever 1,82 cm
en bas je veux enlever 0,35 cm
Cela pour supprimer les barres de menus en haut et d'état en bas.

La procédure ci-dessus a priori travaille en points

L'aide que je demande consisterait à appliquer ces rognages haut et bas à l'ensemble des images du document (quel qu’en soit le nombre)

J'ai essayé avec l'enregistreur de macros mais il semblerait que l'on ne peut agir sur une image.


Une autre façon de voir les choses

Après avoir insérer une première image,
la rogner
insérer un saut de page
coller l'image suivante
rogner cette image

J'ai essayé ce code manifestement incomplet qu'il faudrait adapter pour chaque nouvelle image insérée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub rognage2()
'
' rognage2 Macro
'
'
Selection.InsertBreak Type:=wdPageBreak
    Selection.TypeParagraph
    Selection.PasteAndFormat (wdPasteDefault)
 
ActiveDocument.InlineShapes(2).PictureFormat.CropTop = 100
ActiveDocument.InlineShapes(2).PictureFormat.CropBottom = 30
 
 
End Sub

Info : 100 en haut et 30 en bas testés au pif sembleraient convenir pour rogner convenablement

Merci de votre aide
A+

C15

[hyperion13]

Salut
A tester

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
Public Sub RognerImage()
Dim wdDoc As Document
 
Set wdDoc = Application.ActiveDocument
 
With wdDoc
For i = 1 To .InlineShapes.Count
    With .InlineShapes(i)
        .PictureFormat.CropTop = 69 ' 1,82cm = 68,78px
        .PictureFormat.CropBottom = 14 ' 0,35cm = 13,22px
    End With
Next i
End With
 
Set wdDoc = Nothing
End Sub

[C15nantes]

Bonjour Hyperion13

Cela marche impeccable, il faut simplement que j'affine la valeur des rognages.

Un truc surprenant (pour moi), après avoir exécuté cette macro sur des images existantes, si j'ajoute des images à mon document et que je réexécute la macro, les images initiales ne sont pas (et heureusement) rognées à nouveau.

Merci de ton aide.
Bonne journée et peut-être bons vols.

C15

[C15nantes]

Bonjour

Avec beaucoup de retard, je reviens pour rectifier une c...de ma part.

Quand on réexécute la macro elle s'applique bien (et c'est logique d'après le code) sur les images déjà traitées.

Le plus simple et sûr, c'est de ne l’exécuter que lorsque le fichier est terminé et que l'on s'apprête à le fermer.

A+
C15

[hyperion13]

re,
je viens de faire un essai sur le document que j'avais créé pour l'occasion.
étrangement si je réexécute la macro, les images déjà présentes ne sont pas rognées à nouveau.
par contre si j'ajoute une nouvelle image, cette nouvelle image est rognée mais pas les 2 initiales.
tu peux ajouter une condition (L9) dans la boucle

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
Public Sub RognerImage()
Dim wdDoc As Document
 
Set wdDoc = Application.ActiveDocument
 
With wdDoc
For i = 1 To .InlineShapes.Count
    With .InlineShapes(i)
        If .Height > 623 Then 'pour obtenir un résultat approximatif, diviser la valeur en cm par 28,346
            .PictureFormat.CropTop = 169 ' 1,82cm = 68,78px
            .PictureFormat.CropBottom = 14 ' 0,35cm = 13,22px
        End If
    End With
Next i
End With
 
Set wdDoc = Nothing
End Sub

[C15nantes]

Bonjour

après plusieurs essais, effectivement j'en arrive aux mêmes conclusions que toi, une image déjà rognée ne le sera plus si on réexécute a procédure.

Par contre, si l'on exécute la macro après avoir compressé les images, alors, là, ça fait mal

A+

C15