Inserer une image dans une cellule via un bouton 'Charger"
fdasneves
Messages postés4Date d'inscriptionmardi 28 janvier 2003StatutMembreDernière intervention 6 mai 2008
-
5 mai 2008 à 15:35
panthera26 -
16 avril 2013 à 16:58
Bonjour,
Je souhaiterais inserer des images dans un classeur excel dans des cellules precises.
Pour shematiser ce que je souhaite:
j'ai un onglet qui contien des cellules ou des groupes de cellules(fusion).
J'ai un bouton a coté de chaque cellule dans laquelle je souhaite inserer une image.
Je click sur le bouton, il me lance une boit de dialogue de type parcourir. Je cherche le fichier, je pointe dessus et click sur "ouvir"
Excel m'insere alors l'image selectionner dans la cellule se trouvant a coté du bouton ayant servi a l'appeler et me redimensionne l'image afin qu'elle s'integre dans la cellule.
Ce que je pense pouvoir faire:
-Creer le bouton d'appel
-Redimensionner l'image pour l'inserer dans la cellule automatiquement .
ce qui veut dire qu il reste le plus dur a faire : la fonction qui ouvre une boite de dialogue "parcourir" pour trouver le fichier a inserer.
Quelqu'un sait il si cela est possible?
Merci a vous.
A voir également:
Inserer une image dans une cellule via un bouton 'Charger"
zen69
Messages postés584Date d'inscriptionjeudi 28 décembre 2006StatutMembreDernière intervention29 avril 20101 5 mai 2008 à 17:22
Je ne crois pas qu'il soit possible d'inserer une image dans une cellule, en fait avec excel 2003 et - j'arrive a aligné une image sur une cellule mais de l'inséré dans la colonne je ne crois pas que ce soit faisable...
fdasneves
Messages postés4Date d'inscriptionmardi 28 janvier 2003StatutMembreDernière intervention 6 mai 2008 6 mai 2008 à 10:17
j'avance , j ai trouvé ca. ca marche presque comme je veux.
Private Sub Insert_Click()
Dim Emplacement As Range
Dim Img As Object
Dim ShapeObj As Shape
If Application.Dialogs(xlDialogInsertPicture).Show Then
Set Emplacement = Range("B152:F163")
Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With Img.ShapeRange
' .Name = "Cible"
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Else
MsgBox "Insertion d'image interrompue."
End If
End Sub
Ce qui me gene c'est de mettre Set Emplacement = Range("B152:F163") , car j'inscrit la plage de cellule dans le dur.
je voudrais recuperer cette info directement par le click sur le bouton inserer.
En fait je me positionne sur le groupe de cellule (fusionné) dans laquelle je dois inserer l'image.
je click sur le bouton inserer et la ; la macro s'execute et insere l'image dans le groupe de cellule precedemment actif..
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 6 mai 2008 à 16:20
Salut,
Tu as la possibilité d'utiliser un UserForm, sur lequel tu place un controôle qui se nomme RefEdit. Il sert justement à récupérer l'adresse d'une plage de cellules séléctionnée par l'utilisateur.
@++
(
Vous n’avez pas trouvé la réponse que vous recherchez ?
Baaat
Messages postés1Date d'inscriptionsamedi 25 juillet 2009StatutMembreDernière intervention25 juillet 2009 25 juil. 2009 à 23:16
Salut, je suis interessé par vos échanges mais je n'ai pas trouvé exactement ce dont j'ai besoin, bien que ca ressemble beaucoup à ce que fait fdasneves.
Je veux inserer des images dans un classeur excel en font de commentaires de cellules precises.
J'ai moi aussi un bouton a coté de chaque cellule dans laquelle je souhaite ajouter un commentaire avec une image en fond.
Je click sur le bouton, il me lance une boite de dialogue de type parcourir. Je cherche le fichier, je pointe dessus et click sur "ouvir"
Excel m'insere alors l'image selectionnée dans le commentaire de la cellule se trouvant a coté du bouton et me redimensionne l'image afin qu'elle s'integre dans la cellule.
Je sais insérer une image précise en font de commentaire d'une cellule précise:
Sub Ajoutimage()
With Range("A1")
.AddComment
.Comment.Shape.Fill.UserPicture "C:\Image.jpg"
End With
End Sub
Mais je veux que l'utilisateur futur choisisse lui-meme par une boite de dialogue la photo à insérer.
VOILA JE COMMENCE LE VBa ET J AI DIFFICULTE A METTRE UNE IMAGE DANS UNE CELLULE
J'ai créer un userform puis un bouton ajouter une photo,à coté une image1
quel code je doit mettre pour ouvrir mon dossier le disque dur ou se trouve les images
et dans images pour voir la photo
et ensuite sur la feuille de l'onglet x j ai une cellule AC ou je doit mettre une photo j'ai fait un activex incorporer mais ça pas l'être ça