Discussion :

[Bisbis27]

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

[Vba14]

Bonjour,

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

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

[Bisbis27]

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 ...

[Vba14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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