Macro pour inserrer image

T

Ti

Guest

• 5 Octobre 2003

• #2

utilise Application.Dialogs(xlDialogInsertPicture).Show
Si tu annules, cette fonction renvoie False, sinon l'image est insérée à la position de la cellule active

 

Vote positif 0 Vote négatif

L

Ludwig

Guest

• 5 Octobre 2003

• #3

Bonjour à toi,

Merci pour ta réponse mais en fait je souhaiterai inserrer l'image dans un UserForm.
A partir de la boite à outils, j'ai placé dans l'UsserForm une image et en cliquant dessus j'y inserre l'image choisie.
Est-ce possible?

Encore merci,

Ludwig

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 5 Octobre 2003

• #4

Dans ce cas, passe par GetOpenFileName, puis charge l'image dans ton controle Image avec la méthode LoadImage.

 

Vote positif 0 Vote négatif

L

Ludwig

Guest

• 5 Octobre 2003

• #5

Rebonjour Ti,

Oui, mais... je le place où ce "GetOpenFileName". J'ai essayé avec LoadImage mais il trouve toujours: ' chemin d'accés incorrect '.
Il y a très certainement une erreur dans mon code! Je te laisse mon fichier en attache.

Encore merci et à bientôt,

Ludwig

 

Pièces jointes

• DVD.xls

  37 KB · Affichages: 98
• DVD.xls

  37 KB · Affichages: 96
• DVD.xls

  37 KB · Affichages: 100

Vote positif 0 Vote négatif

T

Ti

Guest

• 5 Octobre 2003

• #6

Re: Macro pour insérer image

Pour autant que je puisse en juger, c'est ton chemin d'accès qui est faux.
Mais effectivement, tu n'as pas besoin de GetOpenFilename, puisque vu ton code, tu sais déjà où se trouvent tes fichiers et tu veux qu'ils se chargent automatiquement.
A toi de voir donc en quoi ce chemin d'accès est faux, sinon ton utilisation de LoadPicture est correcte.

 

Vote positif 0 Vote négatif

L

Ludwig

Guest

• 5 Octobre 2003

• #7

Salut,

Très bien, je vais voir pour le chemin d'accés. Sinon grand merci pour ton aide et très bonne soirée...

Encore merci,

Ludwig

 

Vote positif 0 Vote négatif

L

Ludwig

Guest

• 6 Octobre 2003

• #8

Bonjour tout le monde, GM,

Merci beaucoup pour ton fichier joint, il va m'être source d'inspiration( je l'espère ). En tous cas c'est vraiment sympa de ta part.

Encore merci et à très bientôt?

Ludwig

 

Vote positif 0 Vote négatif