Bonjour à tous,

je suis en train de développer pour mon compte perso une application vba Excel qui va générer un fichier Word avec les données inscrites dans mon classeur.

Cette application me permet donc de générer un catalogue sous Word.

Voici le code :

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
26
27
28
29
30
31
32
            'Modification des lignes d'enregistrement
            If Feuil3.Cells(i, 3) <> "" Then
                MonBeauWord.Selection.InlineShapes.AddPicture Filename:=Feuil3.Cells(i, 3)
            End If
 
            If Feuil3.Cells(i, 4) <> "" Then
                MonBeauWord.Selection.InlineShapes.AddPicture Filename:=Feuil3.Cells(i, 4)
            End If
 
            If Feuil3.Cells(i, 5) <> "" Then
                MonBeauWord.Selection.InlineShapes.AddPicture Filename:=Feuil3.Cells(i, 5)
            End If
 
            MonBeauWord.Selection.TypeParagraph
            MonBeauWord.Selection.Font.Bold = True
            MonBeauWord.Selection.TypeText "- Signe : "
            MonBeauWord.Selection.Font.Bold = False
            MonBeauWord.Selection.TypeText "" & Feuil3.Cells(i, 1) & vbCrLf
            MonBeauWord.Selection.Font.Bold = True
            MonBeauWord.Selection.TypeText "- Taille Figurine : "
            MonBeauWord.Selection.Font.Bold = False
            MonBeauWord.Selection.TypeText "" & Feuil3.Cells(i, 2) & vbCrLf
            MonBeauWord.Selection.Font.Bold = True
            MonBeauWord.Selection.TypeText " Description :" & vbCrLf
            MonBeauWord.Selection.Font.Bold = False
            MonBeauWord.Selection.TypeText "" & Feuil3.Cells(i, 7) & vbCrLf
 
            If Feuil3.Cells(i, 6) <> "" Then
                MonBeauWord.Selection.InlineShapes.AddPicture Filename:=Feuil3.Cells(i, 6)
            End If
 
            MonBeauWord.Selection.InsertBreak Type:=wdPageBreak

Je précise que ce code fonctionne j'ai juste des soucis de mise en page

Voila mon problème :

Je voudrais pouvoir centrer mes images et en modifier la taille mais je n'y arrive pas. J'ai essayé avec la méthode d'alignement destinée au paragraphe sans succès.

Est-ce que quelqu'un aurai une idée ?

Un petit plus : savez-vous comment on gère les bordure et les trames en vba ?


Merci d'avance pour vos réponse et à bientot.

Asphalte01