lien une image a une cellule

angoul

XLDnaute Impliqué
Bonjour
J'ai cette petite macro qui me permet d'inserer une image dans sa taille reel sur une une feuille excel
j'aimerai que cette image soit mise en cellule M1
voici ma macro "
Sub InsertImage() 'telechargement image
ScreenUpdating = False
filetoOpen = Application.GetOpenFilename("Fichiers JPG (*.jpg), *.jpg")
If filetoOpen <> False Then ActiveSheet.Pictures.Insert(filetoOpen).Select
MsgBox "Ouvrir " & filetoOpen
End Sub

comment peut t'on faire?

merci de votre aide
 

gilbert_RGI

XLDnaute Barbatruc
Re : lien une image a une cellule

Alors voila, on clique sur le trombonne, cela ouvre une boite de dialogue pour selectionner l'image et ensuite j'aimerai quelle soit coller en cellule M1, avec sa dimension d'origine.
alors voilà pour le click sur le trombone
 

Pièces jointes

  • test-1.xlsm
    62.8 KB · Affichages: 28
  • test-1.xlsm
    62.8 KB · Affichages: 37
  • test-1.xlsm
    62.8 KB · Affichages: 40

Discussions similaires

Statistiques des forums

Discussions
312 361
Messages
2 087 600
Membres
103 604
dernier inscrit
CAROETALEX59