inserer une image et modifier sa taille selon le contenu d'une cellule

néné06

XLDnaute Accro

• 11 Juin 2011

• #2

Re : inserer une image et modifier sa taille selon le contenu d'une cellule

Bonjour compteadbou

Il serait préférable, que tu nous poste une pièce jointe, avec un descriptif "non confidentiel" de la feuille Excel, que tu à crée, pour que l'on sache sur quelle cellule et quelle taille on doit travailler.

Cordialement.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 11 Juin 2011

• #3

Re : inserer une image et modifier sa taille selon le contenu d'une cellule

bonjour Compteabdou,Néné
va sur le site de Jacques Boisgontier et tu en sauras plus
à bientôt

 

Vote positif 0 Vote négatif

C

compteabdou

Guest

• 11 Juin 2011

• #4

Re : inserer une image et modifier sa taille selon le contenu d'une cellule

Merci pour les reponses,

voici le fichier joint pour mettre en evidence ce que je voulais faire.

Merci.

 

Pièces jointes

• Attes.xls

  71 KB · Affichages: 272

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 12 Juin 2011

• #5

Re : inserer une image et modifier sa taille selon le contenu d'une cellule

bonjour
j'ai supposé que les photos étaient dans le même dossier que le fichier
clic droit onglet,choisir visualiser code
ligne commentaire 'à adapter
à bientôt

 

Pièces jointes

• Attescompteabdou.xls

  69 KB · Affichages: 292

Vote positif 0 Vote négatif

C

compteabdou

Guest

• 13 Juin 2011

• #6

Re : inserer une image et modifier sa taille selon le contenu d'une cellule

Bonjour,

merci Bebere, oui c exactement ce que je veux mais il reste juste le problème de la taille des images, y a til une solution pour garder une taille identique de toues les photos.

Merci.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 13 Juin 2011

• #7

Re : inserer une image et modifier sa taille selon le contenu d'une cellule

Bonjour compteabdou,Salut Bebere

J'utilise cette méthode pour justifier la taille de mes images.

ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\images\" & Cells(position_ligne_gabari_en_Feuil1, 1) & ".jpg").Select
Selection.ShapeRange.Height = 95
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = 113
Set image = Selection.ShapeRange

Essayes si cela te convient ?

A+

 

Vote positif 0 Vote négatif

C

compteabdou

Guest

• 13 Juin 2011

• #8

Re : inserer une image et modifier sa taille selon le contenu d'une cellule

Bonjour,

oui c'est ce que je voulais et désolé je ne connais pas beaucoup en VB,

je ne sais pas comment supprimer l'image si un employé n'a pas une photo.
et aussi comment la décaler en bas.

Merci

 

Dernière modification par un modérateur: 13 Juin 2011

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 13 Juin 2011

• #9

Re : inserer une image et modifier sa taille selon le contenu d'une cellule

insères ce code pour effacer les images de la feuille car sinon, toutes les photos se superposent.

Dim image As Object
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoPicture Or Sh.Type = msoLinkedPicture Then
Txt = Sh.Name
Set image = ActiveSheet.Shapes(Txt)
image.Delete
Set image = Nothing
End If
Next


Pour positionner:
ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\images\" & Cells(position_ligne, position de la colonne) & ".jpg").Select

A+

 

Dernière édition: 13 Juin 2011

Vote positif 0 Vote négatif