Remplacer Une Image Par Une Variable

Bonjour,

j'aimerai savoir si on peut remplacer dans une macro , une image par une varaible

en effet je sais récupérer un texte dans word et le remplacer par une variable , mais le logo ne suit pat , il y a que le texte , cependant j'aimerais avoir dans la macro une variable qui est égale au logo

le code quit suit récupère le texte dans word et la variable résultat est égale à ce texte

Dim Resultatb As String
Dim Resultat As String
Dim Docword As word.Document
Dim Appword As word.Application
Set Appword = New word.Application

Appword.ShowMe
Appword.Visible = True
'ouvre le doc word et effectue la copie des données
Set Docword = Appword.documents.Open("D:\DD.doc", ReadOnly:=True)



With Appword
.Selection.wholestory

.Selection.Copy



With New DataObject
.GetFromClipboard


Resultat = .GetText(1)

End With


End With

Appword.Application.Quit
Application.CutCopyMode = False

y a t'il une possibilite de récupérer le logo avec le texte ou peut on associer une variable au logo coller au préalable dans word ou excel

ex resultatimage = ???????
merci pour l'aide

dominique