Re: inserer image dans document Word
bonjour José
La procédure Excel ci dessous permet d'ouvrir un document Word existant et d'y insérer une image , de la redimensionner , de la positionner à un endroit précis dans le document et devant le texte .
Sub InsertImageDansDocWord()
'activer la reference Microsoft Word 10.0 Object Library
Dim WrdApp As Word.Application
Dim WrdDoc As Word.Document
Dim Fichier As String
On Error Resume Next
Fichier = "C:\Documents and Settings\michel\dossier\general\excel\testpilotageWord.doc"
Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = True
Set WrdDoc = WrdApp.Documents.Open(Fichier) 'ouvrir le document Word
WrdDoc.InlineShapes.AddPicture Filename:= _
"C:\Documents and Settings\michel\Mes documents\Mes images\PICT1037.JPG" 'adapter le chemin de l'image à insérer
On Error GoTo 0
With WrdDoc.InlineShapes(1) 'adapter l'index si d'autres images existantes dans le document
.Height = 190.75 'changement dimension image insérée : hauteur
.Width = 254# 'largeur
.ConvertToShape
End With
With WrdDoc.Shapes(1)
.Top = 200 'position verticale de l'image dans le document
.Left = 150 'position horizontale de l'image dans le document
.ZOrder msoBringInFrontOfText 'image au premier plan devant le texte
'.ZOrder msoSendBehindText 'option pour image en arriere plan derriere le texte
End With
'WrdDoc.Close 'fermer le document Word
'WrdApp.Quit 'fermer l'application Word
End Sub
testé avec winXP et Excel2002
je n'ai aucune idée si cela marchera aussi avec VB6 . j'espere que cela pourra tout de meme t'aider
bonne soiree
MichelXld