Insertion d'une image et mise en forme
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:
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.
