Agrandire un Graph en vba

  • Initiateur de la discussion Initiateur de la discussion voldo2142
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

voldo2142

XLDnaute Nouveau
Bonsoir,

J'ai un code VBA qui crée un graph, cependant j'arrive pas a l'agrandire ni à le déplacer. Pouvez vous me donner un indice ??

Merci
Nicolas
 
Re : Agrandire un Graph en vba

J'ai essayé l'enregistrement de macro, mais ca ne marche pas...

Par le même occasion j'ai une autre question concernant mon graphique :

Voici le code :
Code:
   Range("A21").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveWindow.SmallScroll Down:=12
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Initial!$A$16:[COLOR="DarkRed"]$H$21[/COLOR]")
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.ApplyLayout (3)
    ActiveChart.ChartTitle.Select

    ActiveChart.ChartTitle.Text = "Annual Returns"
    Range("E28").Select

En faite la valeur H21 peut varier... ca peut aller de B21 a Q21. Comment puis-je faire pour que ca soit une donnée variable en fonction des informations que contien mon tableau?
 
Re : Agrandire un Graph en vba

Re,
En faite la valeur H21 peut varier... ca peut aller de B21 a Q21. Comment puis-je faire pour que ca soit une donnée variable en fonction des informations que contien mon tableau?
Tu peux procéder ainsi :
Code:
Dim Col as Long
Dim Plage as Range
Col = Range("R21").End(xlToLeft).Column
Set Plage = Sheets("Feuil1").Range(Cells(16, 1), Cells(21, Col))
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Plage
Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
256
Réponses
4
Affichages
470
Réponses
8
Affichages
261
Réponses
5
Affichages
675
Retour