Discussion :

[Blaiz58]

Bonjour à tous,

J'essaye de déplacer un graphique automatiquement à l'aide d'une macro mais malheureusement j'ai un problème concernant le nom du graphique. ça me sélectionne à chaque fois le nom complet mais les noms changent tous les jours du coup je cherche une formule générique ...

VOila mon code

Code :

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

1
2
3
4
5
6
7
 
 
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Graphique 15").ScaleWidth 1.7916666667, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes("Graphique 15").ScaleHeight 1.39409704, msoFalse, _
        msoScaleFromBottomRight

Je souhaiterai qu'au lieu d'avoir "Graphique 15" que ce soit pour le graphique qui vient d'être créé ou celui que je sélectionne ...

Merci de votre aide

[keygen08]

Bonjour

Code :

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

1
2
3
4
5
6
7
Dim a As Chart
 
Set a = ActiveChart
a.ChartArea.Height = 105
a.ChartArea.Width = 320
a.ChartArea.Left = 130
a.ChartArea.Top = 100

Pas besoin du reste
Une autre methode consisterait a compter le nombre de chart sur la feuille pour modifié celui dont le nombre est le plus grand(donc le dernier créer)

le precedent post et pour modifier le graphique selectionner
Pour modifier le dernier graphique

Code :

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

1
2
3
4
5
6
7
Dim a As Chart
 i = Shapes.Count
Set a = Me.Shapes(i).Chart
a.ChartArea.Height = 320
a.ChartArea.Width = 320
a.ChartArea.Left = 130
a.ChartArea.Top = 100

[Blaiz58]

Impeccable !

Merci