XL 2016 Centrer Images

[halecs93]

Bonjour,

J'ai un fichier excel qui me permet de générer des grilles d'accords pour la guitare. Il se base sur des images stockées en feuil2.

Mon code VBA me permet d'aller chercher des accords sur cette feuille pour les coller en feuil1.

Souci, je ne m'en sors pas pour centrer horizontalement les images trouvées et collées.

Sui quelqu'un a une solution... je suis preneur.

Merci tout le monde

 

[RyuAutodidacte]

Re et bonjour à tous,
@halecs93 il est ou le code de "insérerimagesmodifié"
sinon si l'insertion fini par une shape sélectionner, alors faire suivre ce code une fois l'image inséré :

Sub selectedShape()
Dim Rg As Range
Set Rg = ActiveSheet.Range(Selection.TopLeftCell.Address)
    With ActiveSheet.Shapes(Selection.Name)
        .Left = Rg.Left + (Rg.Width - .Width) / 2
        .Top = Rg.Top + (Rg.Height - .Height) / 2
    End With
End Sub

Supp :
il est ou le code de "insérerimagesmodifié"

autant pour moi je viens de le trouver