Insérer par soft une image dans un contrôle image de la boîte à outils contrôles [Résolu]

[ouskel'n'or]

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

Code :

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

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

Code :

   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

[Philippe JOCHMANS]

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 :

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 :

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