lier une image à une cellule dans excel

[CAB@discussions.microsoft.com Didier CAB]

Comment lier une image à une cellelue Excel pour que lors de la copie d'un
tri les images correspondent toujours à la ligne sur lesquelles elles ont été
insérées

[michdenis]

Bonjour Didier,

Pour chacune des images de la colonne,
A ) Un clic droit sur l'image, commande : "Format de l'image..."
B ) Onglet : Propriété
C ) Choisir le bouton radio 1 ou 2

Et le plus important, ton image doit être confiée à l'intérieur de
la dimension de la cellule.

"Didier CAB" <Didier C...@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 898CEA96-40AC-49AE...@microsoft.com...

[isabelle]

bonjour Didier,

fair un clic droit sur l'image et sélectionne Format de l'image
sur l'onglet Propriétés, cocher déplacer et dimensionner avec les cellules.
note, il ne faut pas que l'image déborde de la cellule.

isabelle

Didier CAB a écrit :

[guilhem...@gmail.com]

Hello, c’est vrai qu’il y a aucune manipulation simple et rapide pour insérer une image dans une cellule Excel, même pour la figer. Pour ma part, j’ai expliqué le moyen le plus simple que j’ai trouvé pour y parvenir dans un article. Je propose aussi une alternative à l’aide d’un outil, RowShare :
https://www.rowshare.com/blog/fr/2016/09/27/Avez-vous-deja-reussi-a-inserer-une-image-dans-Excel

[Jacquouille]

Bonsoir
Vous êtes antiquaire?
Vous êtes antiquaire?
Vous êtes antiquaire?

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.

a écrit dans le message de groupe de discussion :

5c8fb887-c54e-47eb...@googlegroups.com...

---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus

[isabelle]

essayer cette macro

Sub Insert_Image()
Dim CheminImage As String
CheminImage = "C:\Users\isabelle\Pictures\cachalot 1.jpg" 'adapt path
ActiveSheet.Pictures.Insert (CheminImage)
With ActiveSheet.Shapes(1)
.LockAspectRatio = msoFalse
.Top = Cells(1, 1).Top
.Left = Cells(1, 1).Left
.Width = Cells(1, 1).Width
.Height = Cells(1, 1).Height
End With
End Sub

isabelle

[HB]

Bonjour,

j'ai bien peur que l'antiquaire
se moque de cette belle macro.

Il se contente d'écumer les vieux messages
et y répond pour faire de la pub pour rowshare.

HB

[Jacquouille]

C'était aussi mon avis.
Mais, que cela ne nous empêche pas de reconnaitre le mérite de notre belle
Isa et sa gentillesse de répondre, même à un antiquaire.

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.

"HB" a écrit dans le message de groupe de discussion :
58133bbe$0$717$426a...@news.free.fr...

[isabelle]

Le 2016-10-28 à 07:50, HB a écrit :
> Il se contente d'écumer les vieux messages
> et y répond pour faire de la pub pour rowshare.

oui HB, j'suis bien d'accord
c'est pour cette raison que je suis intervenu,
je voulais que tous sachent qu'il existe bien une solution directement sur excel,
et c'est pour ça aussi que la macro insert la photo d'un gros balourd ;-)
http://www.cjoint.com/c/FJCppSDmSAa

isabelle

[JièL]

Hello Isabelle de la Geôlière,

Ta maquereau m'inspire une autre demande...
Serait-il possible de fixer la hauteur des lignes selon la hauteur des
images de chaque ligne ?
En fait je voudrais garder l'aspect normal de l'image et
agrandir/réduire chaque ligne selon la hauteur de l'image.

C'est possible ?

Merci d'avance

--
JièL ho t'heurt

Le 27/10/2016 à 21:04, isabelle a écrit :

[MichD]

Bonjour,

Suppose que tu insères une image en cellule A1 portant le nom par défaut attribué par Excel
"Image 1"

Pour obtenir la même hauteur de la ligne 1 correspondant à l'image insérée :

En VBA, Excel remplace "Image" dans "Image 1" par "Picture" et le nom devient "Picture 1"
Si tu veux éviter cette traduction, après avoir sélectionné l'image, donne-lui un autre nom
(en utilisant autre chose qu’"Image") en utilisant le rectangle à l'extrême gauche de la
barre des formules.


'--------------------------------------------
Sub test()
Dim Hauteur As Double
With Worksheets("Feuil1") 'Nom feuille à adapter
Hauteur = .Shapes("Picture 1").Height
.Range("A1").EntireRow.RowHeight = Hauteur
End With
End Sub
'--------------------------------------------

MichD


"JièL" a écrit dans le message de groupe de discussion :
5819ab91$0$696$426a...@news.free.fr...

[JièL]

Hello,

merci pour ce début de réponse, mais j'aurais besoin d'un peu plus.
Je n'ai pas une mais des centaines d'images (comme précisé dans ma
question) avec des noms que je ne connais pas et ce sur un certain
nombre de feuille... et pas une seule dans la cellule A1 ni sur Feuil1 :-)

Je complète ma demande : est-ce qu'il serait possible si je filtre ma
liste que les images ne s'agglutinines pas les uns sur les autres ?

Merci d'avance pour le complet complément

--
JièL 1 complet

[MichD]

Ces 2 conditions doivent être remplies :

A )
Pour que les images suivent lors d'un filtre, chacune des images doit être
à l'intérieur des bornes de leur cellule respective.

B ) Lors d'un clic droit sur l'image, on peut modifier la propriété suivante : "Positionnement
de l'objet".
En VBA : .Placement = xlMoveAndSize . Ceci est obligatoire.

Et pour que l'image occupe toute la superficie de la cellule, on doit avoir recours à cette
propriété :
.LockAspectRatio = msoFalse ici, c'est un choix selon les images insérées dans la feuille
de calcul et le résultat espéré.


'---------------------------------------------------
Sub test()
Dim Sh As Shape, Adr1 As String
Dim F As Worksheet

With ThisWorkbook
For Each F In .Worksheets
With F
.Unprotect
For Each Sh In Shapes
With Sh
If TypeName(.OLEFormat.Object) = "Picture" Then
.Placement = xlMoveAndSize 'propriété importante.
.LockAspectRatio = msoFalse
Adr1 = .TopLeftCell.Address
.Top = F.Range(Adr1).Top
.Left = F.Range(Adr1).Left
.Width = F.Range(Adr1).Width
.Height = F.Range(Adr1).Height
End If
End With
Next
End With
Next
End With
End Sub
'---------------------------------------------------

MichD