Bonjour

Voilà, j'aimerais savoir comment faire afin de changer une image, déja mise en forme, et la remplacé par un autre, j'aurais aimé que cela fasse comme le clic drot de la souris "Modifié l'image" et ensuite cela va la chercher et la remplace tout simplement, voilà ou j'en suit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
ActiveSheet.Pictures.Insert( _
    "D:\Nourrice\Photos\" & Planning.ComboBox_Mois.Value & ".jpg").Select 'Chemin pour allé chercher la photo
 
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 95.25
    Selection.ShapeRange.Width = 127.5
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.IncrementLeft 14.25
    Selection.ShapeRange.IncrementTop 3
Mais si j'avais moyen de faire remplacer l'image, je n'aurais pas besoin de tout cela surtout height et width, j'aimerais les exprimer en cm ou en pourcentage, de plus j'ai une bordure de forme arrondi, qui fait une certaine épaisseur, et bleu, donc plein de chose pour une formule qui serait simple si la commande "Modifié l'image" pouvait existé.

Merci d'avane.