XL 2010 positionner image audessous de page word via excel vba

[yahya belbachir]

Bonjour
comment faire pour positionner une image (gif) au dessous d'une page word via excel,
moi j'ai utilisé ce code:
.Paragraphs.Add
' Ajoute un logo s'il existe (fichier Logo.gif placé dans MesDocuments)
logo2 = ThisWorkbook.Path & "\logo2.gif"

If Exist_Fichier(logo2) Then
.Paragraphs.Add
.InlineShapes.AddPicture (logo2)

End If

ce code affiche bien l'image mais il me l'affiche en haut de la page word,
avez vous une idée?

 

[yahya belbachir]

Bonjour Yahya,

Il faut d'abord se positionner au dernier paragraphe et insérer l'image dans le "range", soit (code à ajouter en fin de procédure) :

        .Paragraphs.Add
        With .Paragraphs(.Paragraphs.Count - 1)
            .Range.InlineShapes.AddPicture (Logo)
            ' etc ...
            ' ...
        End With

tatiak

merci infiniment Monsieur Tatiak,cela fonction très bien