Discussion :

[akagera]

Bonjour,

Je souhaiterais savoir si l'on peut créer une macro qui applique une mise en forme particulière à toutes les images de mon document Word.
Mise en forme voulue : encadré gris clair avec arrondi dans les angles supérieur droit et inférieur gauche.
Etant novice en programmation, j'ai quand même réussi à créer une macro (merci internet !) qui sélectionne la totalité des images de mon fichier Word et qui leur applique une bordure grise. Par contre je sèche pour les angles ...
Quelqu'un aurait-il une idée?
Voici mon code actuel :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub mef_images()
Dim image As InlineShape
For Each image In ActiveDocument.InlineShapes
        With image
            With .Borders(wdBorderLeft)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth100pt
                .Color = RGB(217, 217, 217)
            End With
        End With
Next
End Sub

Merci d'avance!

[jurassic pork]

hello,
un truc facile à faire c'est de sélectionner une image qui a le format désiré et de copier le format (l'image peut être la première du document ou se trouver dans un autre document word), puis d'appliquer le format sur toutes les autres images du document.
Voici un code exemple qui prend le format de la première image du document et qui le copie sur toutes les autres images :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub mef_images()
Dim image As InlineShape
ActiveDocument.InlineShapes(1).Select
Selection.CopyFormat
For Each image In ActiveDocument.InlineShapes
With image
image.Select
Selection.PasteFormat
End With
Next
End Sub

voici ce que cela donne :
1 - Avant l'exécution de la macro :


2 - Après


Ami calmant, J.P

[akagera]

Bonjour JP,

Effectivement c'est une solution assez simple. J'ai testé ton code et il marche impec. Merci !
Par contre, je ne sais pas créer la forme que je souhaite (arrondir les angles haut droit et bas gauche) sans passer par une forme et un remplissage. Faire cette manip sur toute les images est trop fastidieuse.
Je me demandais donc s'il n'y avait pas une commande pour arrondir l'angle que l'on souhaite ?
Au pire je me rabattrais sur les angles arrondis haut gauche et bas droit (mise en forme qui existe!!).
Et dernière question, peut-on appliquer la mise en forme sur les images de tout le document sauf de la première page?

Merci encore!
Aka

[jurassic pork]

hello,
je ne sais pas comment on arrondit un seul coin.
Pour la deuxième question tu peux faire comme ceci par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub mef_images()
Dim image As InlineShape
ActiveDocument.InlineShapes(1).Select
Selection.CopyFormat
For Each image In ActiveDocument.InlineShapes
With image
image.Select
If Selection.Information(wdActiveEndPageNumber) > 1 Then
Selection.PasteFormat
End If
End With
Next
End Sub

Si l'objet sélectionné se trouve sur une page autre que la première , on applique le format.
N'oublie pas de mettre la discussion comme résolue si c'est le cas et de noter les messages qui t'ont semblé utiles (pouce vers le haut) et ceux qui t'on fait perdre ton temps (pouce vers le bas).

Ami calmant, J.P

[akagera]

Ca fonctionne impec !!
Super !! Merci bien JP !!