Bonjour

J'insère par une macro des images dans mon document Word mais je ne parviens pas par le code à y appliquer un format tel que dans l'image ci-dessous, je ne trouve pas la propriété ou méthode adéquate. L'enregistreur de macros ne permet pas de voir le code...



J'ai notamment testé ces instructions, mais ça ne donne pas l'effet voulu :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim S As InlineShape
Set S = Selection.InlineShapes.AddPicture("C:\Travaux\Images\truc.jpg", False, True)
 
Dim MyShape As Shape
Set MyShape = S.ConvertToShape
 
MyShape.ShapeStyle = msoShapeStylePreset7
 
MyShape.BackgroundStyle = msoBackgroundStylePreset1
Le but étant donc d'appliquer automatiquement le format prédéfini "cadre blanc".

Une idée ? Merci.