Centrage de la photo dans la cellule

bsr Eric;

désolé pour ne pas avoir mis la source ou lien.
je dois t'avouer que c'est la 1er fois que je rentre sur un forum.
la formule que tu m'as comminiqué fonctionne bien.

je te remercie beaucoup pour ton aide
did

Bje eriiic ;

Merci de ta rep
Je ne suis pas un pro de VBA
Je me suis contenté de recopier ces qq lign de code dans une macro sans vraiment capable de comprendre toutes la synthaxe.
Je met ci-dessous les de celle-ci, si tu pouvais m’indiquer plus précisément les modif a apporter
Avec un grand merci
Did

Sub AffImage2()
' Sélectionner les cellules contenant un lien vers une image
' AffImage les affichera sur le lien ou dans la colonne de gauche ou de droite
Const hDefaut = 75
Dim msg As String, r As Long, h As Long
Dim c As Range
msg = "Oui : Afficher les images à gauche des liens sélectionnés" & vbCrLf
msg = msg & "Non : Afficher les images sur les liens sélectionnés" & vbCrLf
msg = msg & "Annuler : Afficher les images à droite des liens sélectionnés"
r = MsgBox(msg, vbYesNoCancel, "Cellules où mettre les images")
If r = vbYes Then
r = -1
ElseIf r = vbNo Then
r = 0
Else
r = 1
End If
h = InputBox("Hauteur des lignes :", "Choix hauteur", hDefaut)
For Each c In Selection
'c.ColumnWidth = 4
fich = c.Value
If fich <> "" Then
c.RowHeight = h 'fixer la hauteur de ligne
ActiveSheet.Pictures.Insert(fich).Select 'ouverture image
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserver les proportion
.Height = h - 4 'hauteur de l'image = hauteur des lignes - 4
.Left = c.Offset(0, r).Left + 2 'à gauche colonne A (sinon tu calcules avec la largeur de colonne des colonnes
.Top = c.Top + 2 'et positionner verticalement
End With
End If
Next c
End Sub

Pour info voici ce que j’obtient, j’aimrai centrer toutes les photo autout d’un axe verticale passant parle milieu de la colonne qui les reçoit (milieu de la photo la plus large.
Merci !!!!



C:\Users\dn\Desktop\Base Travail LSG\amy.JPG


C:\Users\dn\Desktop\Base Travail LSG\bidule.JPG


C:\Users\dn\Desktop\Base Travail LSG\aimé.JPG