Redimensionner tous mes graphiques

[spitfire378]

Bonjour a tous, est-il possible avec une boucle for de redimenssionner tous mes graphiques par rapport a des cellules, genre mon premier graphique avec le coin en haut a gauche en cellule B4 et le coin en bas a droite en cellule P27.
Merci 🙂

 

[CB60]

Re : Redimensionner tous mes graphiques

Bonsoir
Regarde si cela te convient?

Mettre le premier graphique au dimension souhaité ( largeur et hauteur)

Option Explicit
Sub PositionGraph()
    Dim graphWidth As Long, graphHeight As Long
    Dim TopPosition As Long, LeftPosition As Long
    Dim Graph As ChartObject
    'Positionne le premier graphique
    With ActiveSheet.ChartObjects(1)
        .Left = Range("c10").Left
        .Top = Range("c10").Top
    End With
    'Active le premier graphique
    ActiveSheet.ChartObjects(1).Activate
    'On récupère la taille du graphique actif(ChartObjects(1))
    graphWidth = ActiveChart.Parent.Width
    graphHeight = ActiveChart.Parent.Height
    TopPosition = ActiveChart.Parent.Top
    LeftPosition = ActiveChart.Parent.Left
    'Déplace, positionne ( le reste des graphiques ) et mise à la taille du premier graphique
    For Each Graph In ActiveSheet.ChartObjects
        Graph.Width = graphWidth
        Graph.Height = graphHeight
        Graph.Top = TopPosition
        Graph.Left = LeftPosition
        TopPosition = TopPosition + Graph.Height
    Next Graph
End Sub

 

[spitfire378]

Re : Redimensionner tous mes graphiques

C'est parfait 🙂