XL 2016 VBA Insertion d'une image

danielco · 7 Avril 2020

Bonjour,

J'utilise ce code pour insérer des photos :

VB:

  For Each C In Range("D3", Cells(Rows.Count, 4).End(xlUp))
    Photo = C.Value
    Set Img = ActiveSheet.Pictures.Insert(Chemin & Photo & ".jpg")
    With Img
      .Left = C.Offset(, -2).Left
      .Top = C.Offset(, -2).Top
      .Width = Larg
      If C.Height < .Height Then
        .Height = C.Height
      End If
    End With
  Next C

La ligne :

Code:

 .Left = C.Offset(, -2).Left

devrait aligner la photo sur le bord gauche de la colonne B, or ce n'est pas le cas. Qu'est-ce que j'ai fait de travers ?

Le fenêtre d'exécution donne :

?c.Address
$D$3
?C.Offset(, -2).left
161.25
?img.left
161.25

Merci d'avance.

Daniel

patricktoulon · 9 Avril 2020

re
bon si on considère que toutes tes images pivotées ont la donnéee exif (245)
voila les model ou je prends un raccourci methode en faisant simplement un copypicture de l'image re pivoté sur le sheets pour ne pas avoir a m'ennuyer avec les left et top inversé dans le calcul
model 1 pour faineant de la calbasse

VB:

Private Sub CommandButton1_Click()
    Dim fichier As Variant, img As Picture
    On Error Resume Next
    ActiveSheet.Shapes("img").Delete
    Err.Clear
    fichier = Application.GetOpenFilename("Text Files (*.jpg), *.jpg", 1, "ouvrir un fichier")
    If fichier = False Then Exit Sub
    Set img = ActiveSheet.Pictures.Insert(fichier)
    img.Name = "img"
    place_l_image_dans [C5], img...

jmfmarques · 7 Avril 2020

Bonjour
C'est comme dans la vraie vie :
Si tu veux mettre une boîte d'allumettes A à gauche d'une boîte d'allumettes B,
tu la mets à gauche de la B - la largeur de la A, non ?
Et Idem pour la hauteur.

EDIT : et bien sûr (et donc le vérifier) : la boîte B ne pourra être mise à cet endroit que si l'on y trouve la place nécessaire.

patricktoulon · 7 Avril 2020

re
bonjour

non seulement ça mais il est normal que ça déraille étant donné que tu redimensionne le height APRES POSITIONNEMENT et que par defaut le lockaspectratio(true) redim le width en même temps et que tu redim le width après !!!!!!!ce qui annule le redim du height bien sur

donc ma question est:
cette image peut elle avoir l'aspect ratio préservée au redimensionnement ou non
si c'est le cas tu est loin du compte il faut adapter les dimensions en fonction de la comparaison du ratio (range/img )

tu trouvera ca dans les ressources tu n'aura plus qu'a enlever le centrage

centrer une image dans un range en toute circonstances quel que soit le ratio (range/image)

bonjour a tous voici deux méthode avec exemple pour centrer une image sur un range la méthode que j'appelle directe en effet j'agit directement sur l'image en bloquant l'apect ratio...

www.excel-downloads.com

danielco · 7 Avril 2020

Bonjour @jmfmarques ,

Pas sûr de bien comprendre. Dans l'image ci-dessous, les deux premières photos s'insèrent correctement, mais pas la troisième; pourquoi ?

Ci-joint le classeur.

Daniel

patricktoulon · 7 Avril 2020

re
relire tant que tu n'a pas compris le post 3
tant que tu n'a pas compris

danielco · 7 Avril 2020

patricktoulon à dit:
re
bonjour

non seulement ça mais il est normal que ça déraille étant donné que tu redimensionne le height APRES POSITIONNEMENT et que par defaut le lockaspectratio(true) redim le width en même temps et que tu redim le width après !!!!!!!ce qui annule le redim du height bien sur

donc ma question est:
cette image peut elle avoir l'aspect ratio préservée au redimensionnement ou non
si c'est le cas tu est loin du compte il faut adapter les dimensions en fonction de la comparaison du ratio (range/img )

tu trouvera ca dans les ressources tu n'aura plus qu'a enlever le centrage

centrer une image dans un range en toute circonstances quel que soit le ratio (range/image)

bonjour a tous voici deux méthode avec exemple pour centrer une image sur un range la méthode que j'appelle directe en effet j'agit directement sur l'image en bloquant l'apect ratio...

www.excel-downloads.com

Bonjour Patrick,

Ca ne doit pas être mon jour ! Je ne fixe pas la hauteur et la largeur. Je fixe uniquement la largeur. Ensuite, je vérifie que la hauteur de l'image ne dépasse pas la hauteur de la cellule. Si c'est le cas, je fixe uniquement la hauteur de l'image à la hauteur de la cellule pour préserver la proportion de l'image. Mon problème est l'alignement des images sur le bord gauche de la colonne B.

Daniel

patricktoulon · 7 Avril 2020

re
q'importe des que tu change le height ou le width tu change l'autre car PAR DEFAUT LA PROPRIETE LOCKASPECTRATIO est a true pour que l'image ne soit pas déformée mais juste redimensionnée

donc si ton image est rectangle et ta cell est carrée ou l'inverse ca va pas aller
c'est pourtant simple a comprendre

il te faut donc connaitre le coté par le quel tu va redimensionner et pour cela tu a besoins de comparer le ratio de la cells et de l'image
c'est pas difficile a comprendre ?

tu ne peux pas avoir une image rectangulaire la redimensionner au width ou height de la cells qui elle est carrée et espérer la redimensionner au height ou width sans qu'elle dépasse quelque part SI LE RATION(CELLS/IMG) est différent

danielco · 7 Avril 2020

Effectivement, je ne compare pas les ratios. Je fixe d'abord la largeur, et si ça ne va pas, je fixe la hauteur :

Et ça fonctionne bien pour les deux premières images. Encore une fois, mon problème est un problème d'alignement, pas de redimensionnement.

Daniel

patricktoulon · 7 Avril 2020

Et ça fonctionne bien pour les deux premières images. Encore une fois, mon problème est un problème d'alignement, pas de redimensionnement.

ben bravo tu a encore rien compris
moi j'abandonne

jmfmarques · 7 Avril 2020

Celui qui veut faire les choses comme il convient de les faire s'abstient de s'y prendre comme l'un de mes copains (équilibrer une table basse en s'en prenant à une seule dimension des pieds à la fois).
Il faut savoir décider ! --->>
1) on décide des dimensions et position qu'elle devra avoir
et
2) et seulement alors : on sort sa scie, puis on la place ...

danielco · 7 Avril 2020

Sans doute, mais je ne vois pas où une de tes réponses parle d'alignement.

Daniel

patricktoulon · 7 Avril 2020

tout est dit

danielco · 7 Avril 2020

jmfmarques à dit:
Celui qui veut faire les choses comme il convient de les faire s'abstient de s'y prendre comme l'un de mes copains (équilibrer une table basse en s'en prenant à une seule dimension des pieds à la fois).
Il faut savoir décider ! --->>
1) on décide des dimensions et position qu'elle devra avoir
et
2) et seulement alors : on sort sa scie, puis on la place ...

Concrètement, qu'est-ce qui cloche dans mon code ?

jmfmarques · 7 Avril 2020

Concrètement, qu'est-ce qui cloche dans mon code ?

Si tu veux en parler sérieusement, ce n'est pas de code, mais de raisonnement/mécanisme, qu'il faut parler !
Un code, quel qu'il soit, écrit sur la base d'un mécanisme bancale ne sera jamais rien d'autre que ce que serait un emplâtre sur une jambe de bois !
Il ne m'est tout simplement pas possible de commenter ton "code". Pas plus qu'il me serait possible d'envisager de construire un gratte-ciel sur un nénuphar.

patricktoulon · 7 Avril 2020

danielco à dit:
Sans doute, mais je ne vois pas où une de tes réponses parle d'alignement.

Daniel

fait moi plaisir Danielco va voir la ressource que je t'ai donné en lien et essaie de comprendre pourquoi faut il faire cette manœuvre
regarde une image rectangulaire dans une cell carré
je la redimenssionne par le width

une image rectangulaire plus large que haute dans une cells rectangulaire plus haute que large
je la redimentionne par le width

et je te montre pas de l'inverse tu aura compris (du moins je l’espère )
c'est pour cela qu'il faut comparer le ration (Range/img)
IL NE PEUT EN ETRE AUTREMENT!!!!!!!
IL NE PEUT EN ETRE AUTREMENT!!!!!!!
IL NE PEUT EN ETRE AUTREMENT!!!!!!!
IL NE PEUT EN ETRE AUTREMENT!!!!!!!

je continue ou t'a compris

XL 2016 VBA Insertion d'une image

danielco

XLDnaute Accro

patricktoulon

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

centrer une image dans un range en toute circonstances quel que soit le ratio (range/image)

danielco

XLDnaute Accro

Pièces jointes

patricktoulon

XLDnaute Barbatruc

danielco

XLDnaute Accro

centrer une image dans un range en toute circonstances quel que soit le ratio (range/image)

patricktoulon

XLDnaute Barbatruc

danielco

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

danielco

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

danielco

XLDnaute Accro

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Discussions similaires