Bonjour

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

voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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