Microsoft Word Page Sources
Microsoft Word Page SourcesConsultez toutes les sources
Nombre d'auteurs : 5, nombre de sources : 7, création le 1er octobre 2007
Sommaire→Images
Cette méthode permet d'insérer plusieurs contrôles image dans un document Word et d'insérer une image dans chaque contrôle. Les contrôles images sont ceux de la boîte à outils contrôles, contrôles auxquels peuvent être affectées des macros (manuellement en l'état)
Sélectionnez
Sub InsérerImageDansWord()
Dim Chemin As String
Dim Limage As Object
Dim Liste, i As Integer
Liste = Array("Allez les bleus.gif", "Bêê.gif", "bipbip.JPG", "cactus.gif", "Chuis mort.gif", "Danger.jpg", _
"Des Camel pour Dolly.jpg", "dindon.bmp", "le nécureuil.gif", "El cocorico.JPG", "El toro.JPG", _
"Hors gabarit.jpg", "A pas peur.jpg", "kirikiki.JPG", "Le pétard.gif", "marsupial.gif", "maya.gif", _
"Mêêê.gif", "Miahrrhhh.gif", "les moutonse.bmp", "poubelle.JPG", "snif.gif", "tacot.bmp")
Chemin = "C:\Mes images\"
For i = 1 To UBound(Liste)
Set Limage = ActiveDocument.InlineShapes.AddOLEControl(ClassType:="Forms.Image.1")
DoEvents
With Limage.OLEFormat.Object
.Picture = LoadPicture(Chemin & Liste(i))
.PictureSizeMode = 3 'ou fmPictureSizeModeZoom
End With
DoEvents
Next
End SubCréé le 14 août 2007 par ouskel'n'or