Inserer images cellule active.xlsx
Résolu
Sam77181
-
Sam77181 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Sam77181 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Inserer images cellule active.xlsx
- Insérer video powerpoint - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer sommaire word - Guide
- Insérer espace insécable word - Guide
7 réponses
Merci Pivert
.
C'est super ce fichier.
.
Je pense pouvoir exploiter ce que tu m'as envoyé, mais je suis embêté en partie car je souhaite pouvoir choisir moi même les images dans le répertoire "Dossierimages" pour les mettre dans l'ordre qui me convient un à un si nécessaire.
.
cela faisait longtemps que je n'utilisais plus excel pour ce genre de besoin, et je suis toujours aussi étonné de voir ce que l'on peut faire avec.
Merci
Sam
.
C'est super ce fichier.
.
Je pense pouvoir exploiter ce que tu m'as envoyé, mais je suis embêté en partie car je souhaite pouvoir choisir moi même les images dans le répertoire "Dossierimages" pour les mettre dans l'ordre qui me convient un à un si nécessaire.
.
cela faisait longtemps que je n'utilisais plus excel pour ce genre de besoin, et je suis toujours aussi étonné de voir ce que l'on peut faire avec.
Merci
Sam
Voilà:
http://www.cjoint.com/c/EIwnzGvCpWQ
http://www.cjoint.com/c/EIwnzGvCpWQ
Waouhhhh Waouhhh et reWaouhhh
Rapide et concis.
Merci Pivert.
C'est beau ! :)
Je suppose qu'en me penchant sur le code je vais pouvoir modifier le chemin de destination pour ouvrir la fenetre de recherche sur le dossier que je veux dans "mesdocuments"...
et que je peux faire démarrer le double clique sur une plage de cellules sélectionnées... ?
Merci je vais me pencher sur tout ca
Bonne fin de journée
Sam
Rapide et concis.
Merci Pivert.
C'est beau ! :)
Je suppose qu'en me penchant sur le code je vais pouvoir modifier le chemin de destination pour ouvrir la fenetre de recherche sur le dossier que je veux dans "mesdocuments"...
et que je peux faire démarrer le double clique sur une plage de cellules sélectionnées... ?
Merci je vais me pencher sur tout ca
Bonne fin de journée
Sam
Pour l'ouverture sur le dossier:
Pour la plage de cellule:
Sub ImportImages()
Dim oPict As New stdole.StdPicture
ChDir "C:\Users\....\Pictures" 'adapter chemin dossier à ouvrir
chemin = Application.GetOpenFilename
If chemin = False Then Exit Sub 'annulation
hauteur = 100 'a adapter la hauteur de l'image
Set oPict = stdole.LoadPicture(chemin)
ratio = oPict.Width / oPict.Height
If oPict.Height < oPict.Width Then 'mode paysage
largeur = hauteur * ratio
Else
largeur = hauteur * ratio
End If
Columns(Colonne).ColumnWidth = largeur / 5.5
Rows(Ligne & ":" & Ligne).RowHeight = hauteur
ActiveSheet.Pictures.Insert(chemin).Select
Var = Selection.Name
Selection.ShapeRange.LockAspectRatio = msoFalse
With ActiveSheet.Shapes(Var)
.Top = Range(position).Top
.Left = Range(position).Left
.Height = hauteur
.Width = largeur
End With
End Sub
Pour la plage de cellule:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:F38")) Is Nothing Then 'a adapter la plage de cellule
position = Target.Address
Ligne = Target.Row
Colonne = Target.Column
position = Replace(position, "$", "")
ImportImages
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Voila, il faudra activer le chemin du dossier à ouvrir, après l'avoir adapter:
http://www.cjoint.com/c/EIxlvG8LLvQ
http://www.cjoint.com/c/EIxlvG8LLvQ