OVH Cloud OVH Cloud

Insérer image avec userform

2 réponses
Avatar
MK
Bonjour,

J'ai créé un userform avec un textbox (chemin et nom du fichier) et un
commandbutton pour aller chercher le chemin et nom de fichier à insérer et
ensuite une macro place l'image dans word.

Je ne suis pas capable d'utiliser le commandbutton. Avec Excel j'utilise
ChDir "C:\Document CMM et IPL\Note\Excel\Test signature"
image = Application.GetOpenFilename _
("Images (*.bmp;*.gif;*.jpg),*.bmp;*.gif;*.jpg")
Mais avec word je n'ai pas trouvé le code.

Et j'ai trouvé que je peux insérer un Objet\image bitmap, mais je ne suis
pas capable de donné la dimension voulu à la fenêtre.

Merci de votre aide

2 réponses

Avatar
Anacoluthe
Bonjour !

'MK' nous a écrit ...
J'ai créé un userform avec un textbox (chemin et nom du fichier) et un
commandbutton pour aller chercher le chemin et nom de fichier à insérer et
ensuite une macro place l'image dans word.
Je ne suis pas capable d'utiliser le commandbutton. Avec Excel j'utilise
ChDir "C:Document CMM et IPLNoteExcelTest signature"
image = Application.GetOpenFilename _
("Images (*.bmp;*.gif;*.jpg),*.bmp;*.gif;*.jpg")
Mais avec word je n'ai pas trouvé le code.
Et j'ai trouvé que je peux insérer un Objetimage bitmap, mais je ne suis
pas capable de donné la dimension voulu à la fenêtre.


Dans Word les objets graphiques - dont les images bitmap - sont
soit des objets InlineShapes = alignés sur le texte
soit des objets Shapes = hors texte
Pour insérer une image en VBA on l'ajoute aux collections Shapes
ou InlineShapes avec la méthode AddPicture qui précise dans
ses arguments le nom du fichier image source, sa position dans
le document etc

Anacoluthe
« La valeur d'une image se mesure à son imaginaire. »
- Gaston BACHELARD

Avatar
MK
Merci

Et pour le commandbutton qui m'amène au browser pour sélectionner un chemin
d'une image.


Bonjour !

'MK' nous a écrit ...
J'ai créé un userform avec un textbox (chemin et nom du fichier) et un
commandbutton pour aller chercher le chemin et nom de fichier à insérer et
ensuite une macro place l'image dans word.
Je ne suis pas capable d'utiliser le commandbutton. Avec Excel j'utilise
ChDir "C:Document CMM et IPLNoteExcelTest signature"
image = Application.GetOpenFilename _
("Images (*.bmp;*.gif;*.jpg),*.bmp;*.gif;*.jpg")
Mais avec word je n'ai pas trouvé le code.
Et j'ai trouvé que je peux insérer un Objetimage bitmap, mais je ne suis
pas capable de donné la dimension voulu à la fenêtre.


Dans Word les objets graphiques - dont les images bitmap - sont
soit des objets InlineShapes = alignés sur le texte
soit des objets Shapes = hors texte
Pour insérer une image en VBA on l'ajoute aux collections Shapes
ou InlineShapes avec la méthode AddPicture qui précise dans
ses arguments le nom du fichier image source, sa position dans
le document etc

Anacoluthe
« La valeur d'une image se mesure à son imaginaire. »
- Gaston BACHELARD