changer les proportion d'une image en vba

Bonjour

J'ai un fichier et je copie un graphique d'un autre fichier que je colle en mode copypicture

voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Workbooks(Fichier_MP_MAGNY).Worksheets("Indicateurs Hebdo").Activate ActiveSheet.ChartObjects("prevMPmagny").Select Application.CutCopyMode = False Selection.CopyPicture     ThisWorkbook.Worksheets("MP_Magny").Activate Range("A1").Select ActiveSheet.Paste   Set Emplacement = Range("B20:CQ191")   With Selection LockAspectRatio = msoFalse .Left = Emplacement.Left .Top = Emplacement.Top .Height = Emplacement.Height .Width = Emplacement.Width ' Selection.Format.TextFrame2.TextRange.Font.Size = 80 End With

---

Comment je peux faire pour que les proportions de l'image change et qu'elle soit positionner exactement dans la plage B20:CQ191 ?
Je pensais que LockAspectRatio fonctionnerait mais non ...

Merci ;)

Bonjour,

Regardes cette discussion peut-être pourra t'elle t'aider ?

Citation:

---

https://www.developpez.net/forums/d1...sionner-image/

---

Citation:

---

Envoyé par Vba14

Bonjour,

Regardes cette discussion peut-être pourra t'elle t'aider ?

---

J'ai vu mais ça m'aide pas trop car il était question de remplacer une image par une image ...

Désolé j'avais mal compris.

J'avais ce code dans mes archives qui sert à dimensionner un graphique, regardes si cela peut t'aider. Il faut bien entendu l'arranger selon tes besoins, tu peux modifier la largeur et la hauteur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Sub Dimension_Graphique() Dim Nbre_Graphe As Byte For Nbre_Graphe = 1 To ActiveSheet.ChartObjects.Count With ActiveSheet.ChartObjects(Nbre_Graphe) .Width = 200 'la largeur voulue .Height = 200 'la hauteur voulue End With Next Nbre_Graphe End Sub

---