Cette méthode a été testée sous Word 2007
Dans l'onglet développeur, choisir dans le groupe Contrôles le bouton Outils Hérités.
Utilisez le bouton Autres Contrôles et dans la liste, choisissez Microsoft Web Browser.
Vous vous retrouvez avec un affichage comme celui-ci.
Dans le VBE, pour ThisDocument, vous choisissez dans la liste Document
et l'évènement Open
Ajoutez le code suivant :
Private Sub Document_Open ()
WebBrowser. Navigate " C:\Documents and Settings\Olivier\Mes documents\Mes images\Gifs\easy.gif "
End Sub
|
Pour parfaire l'affichage il reste quelques petites modifications à apporter.
Dans la liste de gauche choisissez WebBrowser1 et dans celle de droite DocumentComplete.
Modifez le code pour qu'il ressemble à ceci :
Private Sub WebBrowser1_DocumentComplete (ByVal pDisp As Object, URL As Variant)
WebBrowser1. Document . body . scroll = " no "
WebBrowser1. Document . body . Style . BorderStyle = " none "
End Sub
|
Si vous voulez mettre votre gif derrière le texte.
Basculez en mode création, avec un clic droit, choisissez Format de contrôle.
Et dans habillage, placez le où bon vous semble.
Il ne vous reste qu'à sauvegarder le fichier en *.docm, le fermer et le réouvrir.
|