contôle image pour insérer dans la feuille

[bynabik]

Bonjour à tous un petit souci d'image..
J'ai un contrôle image dans une userform j'aimerais que lorsque l'on clique sur ce contrôle, l'utilsateur aille choisir une image dans son pc et que celle ci aille se coller à un endroit d'une feuille de calcul. pour le moment j'ai ça :

Private Sub Image1_Click()
Dim image As String
image = Application.GetOpenFilename('Images, *.jpg')
If image = 'Faux' Then Exit Sub
Image1.Picture = LoadPicture(image)

et pour la suite je sèche... je bidouille sur VBA j'ai vraiment du mal si vous avez une solution je suis preneuse merci

 

[bynabik]

et bien c'est encore moi..le bidouillage paye mais fort lentement je me réponds donc à moi même ça peut servir à d'autres bien que ça ne soit pas au point

Private Sub Image1_Click()
Dim image As String
image = Application.GetOpenFilename('Images, *.jpg')
If image = 'Faux' Then Exit Sub
Image1.Picture = LoadPicture(image)
Worksheets('Feuil1').Shapes.AddPicture image, False, True, 1, 1, 100, 50
End Sub

cependant les deux derniers chiffres donnent la taille de l'image j'aimerais bien qu'elle s'ajuste automatiquement comme le picturesizemodeclip du bouton de contrôle si vous avez une idée vraiment je suis preneuse (de même pour alléger la taille de l'image)Merci

 

[MichelXld]

bonsoir

j'ai interprété que tu souhaitais adapter l'image à la taille de la cellule A1. tu peux donc essayer :

Worksheets('Feuil1').Shapes.AddPicture image, False, True, 1, 1, _
Range('A1').Width, Range('A1').Height


bonne soirée
MichelXld

 

[bynabik]

Bonjour,
JE repassais par là je n'avais pas vu la réponse;
en fait je ne veux pas tout à fait que l'image s'insère dans la cellule car dans ce cas elle se déforme; j'aimerais qu'elle soit de la hauteur de la cellule mais qu'elle garde son ratio hauteur largeur.