Discussion :

[bardamu34]

Bonjour,
Je suis débutant en VBA et je bute partiellement sur le projet suivant pour lequel je n’ai pas trouvé de solution sur les ressources des différents forums.
Le projet : améliorer la mise en page d’un document Word en insérant automatiquement une image en arrière-plan sous chaque numéro associé au style « titre 2 ». Il s’agit de dépasser les limites des mises en formes de titre « de base » de word. Le résultat final visé est le suivant (image en PJ)



Ce que j’ai réussi à faire. En m’appuyant notamment sur les ressources trouvées sur votre forum, j’ai réussi à faire la macro suivante, qui me permet bien d’insérer l’image à la position et au format souhaité, mais en se positionnant par rapport à la sélection actuelle.

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 AjoutIMGTITRE()
Dim image As Shape
Set image = ActiveDocument.Shapes.AddPicture(FileName:="C:\Users\sabou\Desktop\Accent.png")
 
With image
.RelativeHorizontalPosition = 1
.RelativeVerticalPosition = 0
.Left = CentimetersToPoints(2)
.Top = CentimetersToPoints(-3.5)
.LockAspectRatio = msoTrue
.Height = CentimetersToPoints(6)
.ZOrder 5
End With
End Sub

Ce que je n’arrive pas à faire : faire que ce code s’exécute pour chaque style « titre 2 » du document. j’ai testé avec les commandes Loop, mais je ne parviens pas à positionner l’image par rapport à « l’objet » style.
L’idéal serait que l’image s’insère automatiquement dès que l’on définit un « titre 2 » dans le document. Mais si ce n'est pas possible une commande 'unique' pour tous les titres sera également appréciée.

Un grand merci par avance et plus globalement pour la qualité du forum qui est d’une aide très précieuse.