Discussion :

[ouskel'n'or]

Tout est dans le sujet : Comment fait-on ?
Pour insérer le contrôle image, pas de pb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   ActiveDocument.InlineShapes.AddOLEControl ClassType:="Forms.Image.1"

Pour sélectionner ce contrôle, pas de pb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).Select

mais c'est la méthode pour insérer le fichier image dans le contrôle image qui me pose pb. Quelle syntaxe utiliser pour "loader" l'image.

??? = LoadPicture ("C:\Mes images\Bêê.gif")

Ne fonctionne pas avec le nom du contrôle, ne fonctionne pas avec InlineShapes ni avec shapes... tsétéra tsétéra... etc.
par avance, merci

[Invité]

Salut Ouskel'n'or,

Je t'avoue que je n'ai jamais utiliser le vba sous word, mais ton contrôle a t'il une propriété Picture, si c'est le case essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LeControle.Picture = LoadPicture(...)

Starec

[ouskel'n'or]

Je n'ai pas mis tous mes essais mais celui-ci ne fonctionne pas non plus
Et moi qui comptais sur toi
Mais merci quand même.
A+

PS - Oui, manuellement on a la propriété picture pour un contrôle image... de la boîte à outils contrôles

[ouskel'n'or]

M...de de crotte de zut !
Manquait un objet et j'avais même pas vu ça. J'ai voulu re-tester ta ligne de code... sait-on jamais... Evidemment j'ai eu un message d'erreur... que je n'avais sans doute pas lu la première fois "Objet requis" Bref, suffit d'ajouter l'objet Document... dans Word, faut toujours ajouter l'objet document
Tout le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
   ActiveDocument.InlineShapes.AddOLEControl ClassType:="Forms.Image.1"
   DoEvents
   ActiveDocument.Image1.Picture = LoadPicture("C:\Mes images\Bêê.gif")

Me reste plus qu'à trouver comment avoir le nom du dernier contrôle image inséré pour automatiser tout ça.
Merci Sterec, j'ai bien fait de te faire confiance