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 :
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é.
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
Merci d'avane.
Partager