Discussion :

[Ronibo]

Bonjour

Je pense que j'ai tout dit dans le titre

Je recherche un bout de code me permettant de centrer une image verticalement et horizontalement exportée sur word,

J'ai trouvé ce bout de code me permettant de centrer l'image, par contre je n'arrive pas à centrer image au milieu de la page word

Merci d'avance

Code pour centrer :

Code :

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

1
2
3
  With WordDoc.Parent.Selection
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    End With

Le code entier

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
Private Sub CBJPGenPDF_Click()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim FichierImage As String
Dim Img As Word.InlineShape
  FichierImage = Me.TBRepertoire & "\" & Me.LBListeDossierFichier
  Set WordApp = CreateObject("Word.Application")
  Set WordDoc = WordApp.Documents.Add
  With WordDoc.PageSetup
    .LeftMargin = WordApp.CentimetersToPoints(0)
    .RightMargin = WordApp.CentimetersToPoints(0)
    .TopMargin = WordApp.CentimetersToPoints(0)
    .BottomMargin = WordApp.CentimetersToPoints(0)
  End With
  With WordDoc.Parent.Selection
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
  End With
  Set Img = WordDoc.InlineShapes.AddPicture(FichierImage, False, True)
  WordDoc.ExportAsFixedFormat Me.TBRepertoire & "\" & Me.LNomDossierFichier & ".pdf", wdExportFormatPDF, False
  WordDoc.Application.Quit savechanges:=wdDoNotSaveChanges
  ListeLesFichiers
  Me.LBListeDossierFichier.SetFocus
  Me.LBListeDossierFichier.ListIndex = Me.LNumeroLigne
  MsgBox "Le fichier a bien été créé à l'emplacement suivant :" & vbCr & vbCr & Me.TBRepertoire & "\" & Me.LNomDossierFichier & ".pdf", vbInformation, "Confirmation"
End Sub

[Invité]

Bonjour,

Dans un premier temps, vous pourriez étalonner votre document pour voir où se situe le milieu de la page en sélectionnant le paragraphe en question avec la commande :

Code :

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

1
2
 
               Debug.Print Selection.Information(wdVerticalPositionRelativeToPage)

Une fois trouvée cette position, à partir de la propriété Height de la forme, vous pourriez en déduire la valeur de sa propriété Top dans le document.

[Ronibo]

Bonjour,

Dans un premier temps, vous pourriez étalonner votre document pour voir où se situe le milieu de la page en sélectionnant le paragraphe en question avec la commande :

Code :

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

1
2
 
               Debug.Print Selection.Information(wdVerticalPositionRelativeToPage)

Une fois trouvée cette position, à partir de la propriété Height de la forme, vous pourriez en déduire la valeur de sa propriété Top dans le document.

Bonjour merci pour ton retour,

a l’exécution j'ai une valeur à 0 , normal ?

[Invité]

Il faut faire ton essai directement dans Word. Tu crées un document comme celui que tu génères, tu crées autant de paragraphes qu'il faut pour être approximativement à la moitié de la page et tu lances la macro. Tu auras quelques ajustements à faire. Ce document est là simplement pour faire ton étalonnage, une fois que tu as la valeur, tu t'en sers pour calculer la position de ton image.

[Ronibo]

Il faut faire ton essai directement dans Word. Tu crées un document comme celui que tu génères, tu crées autant de paragraphes qu'il faut pour être approximativement à la moitié de la page et tu lances la macro. Tu auras quelques ajustements à faire. Ce document est là simplement pour faire ton étalonnage, une fois que tu as la valeur, tu t'en sers pour calculer la position de ton image.

Re, merci pour ton retour. Avec cette méthode, on pourrait centrer verticalement n’importe quel image de taille différentes?