Access+Vb+Word+Image dans word

Question

Bonjour,

Je suis en train d'étudier la possibilité de créer une application VB appelant un base Access qui permettrai de générer des fichiers word !.
Créer un document word et y mettre du texte faire un tableau je sais faire mais je dois aussi y mettre des images et la je sais pas comment gérer les images pour les afficher dans le document word.
Comment word gère t-il des images y a t'il un objet à utiliser?

Toute aide sera le bienvenu
Merci d'avance

Le dico du web
http://www.olecorre.com

favissim · Answer

salut
tu peux utiliser le code suivant pour insérer l'image

dans un module tu entres le code:
Public MonWd As Word.Application

ensuite:
Public Sub Word_Insère_Image(Nom_fichier As String, Lier_au_fichier As Boolean)
'pour définir l'endroit où placer l'image grâce à un signet
       MonWd.ActiveDocument.Bookmarks("photo").Select 
'insertion de l'image
       MonWd.Selection.InlineShapes.AddPicture Nom_fichier, Lier_au_fichier, True
End Sub

Private Sub BtnRelance_Click()
'création de l'objet word
Set MonWd = CreateObject("Word.Application")
       
'Ouverture d'un document présent dans le dossier de l'application



    MonWd.Documents.Open App.Path & "	est.doc"
'Initialisation de MonWd



    Set MonWd = CreateObject("Word.Application")
   Dim nom As String
    Dim lier As Boolean
    nom = "c:\drapeau.gif"
    lier = True
    Call Word_Insère_Image(nom, lier)
MonWd.ActiveDocument.Close False
    MonWd.Quit
    
    
End Sub

Access+Vb+Word+Image dans word

1 réponse

Discussions similaires