Changer source d'un graphique sur excel
riopoti
Messages postés
2
Date d'inscription
dimanche 12 septembre 2004
Statut
Membre
Dernière intervention
21 février 2007
-
21 févr. 2007 à 21:41
chapaleufu Messages postés 29 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 19 mai 2007 - 3 mars 2007 à 21:07
chapaleufu Messages postés 29 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 19 mai 2007 - 3 mars 2007 à 21:07
A voir également:
- Changer source d'un graphique sur excel
- Source tree - Conseils pratiques -[Fiches pratiques]
- Interface graphique c++ ✓ - Forum C++ & C++ .NET
- Arctan sur excel - Forum Visual Basic
- Inverse Sinus, Cos, et Tangent ✓ - Forum Visual Basic 6
- Ged open source - Forum C# / .NET
1 réponse
chapaleufu
Messages postés
29
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
19 mai 2007
3 mars 2007 à 21:07
3 mars 2007 à 21:07
voila le code que j'utilise pour dessiner un histogramme ou LRow design la derniere ligne pour le graphique (j'ai plusieues graphes a faire dans la page)
Dim Cht as Chart
Cells(LRow + 2, 1).RowHeight = 200
Range(Cells(5, 1), Cells(LRow - 1, 1)).Name = "HeaderArea"
Range(Cells(5, LCol), Cells(LRow - 1, LCol)).Name = "DataArea"
Cells(LRow + 2, 1).Name = "TopPos"
Range(Cells(LRow + 2, 1), Cells(LRow + 2, LCol)).Name = "GraphArea"
' draw histogram
Set Cht = Charts.Add
Set Cht = Cht.Location(WHERE:=xlLocationAsObject, Name:="Q&A Input Output")
With Cht
.ChartType = xlColumnClustered
.SetSourceData Source:=Union(Range("HeaderArea"), Range("DataArea")), PlotBy:=xlColumns
With .Parent
.Top = Range("TopPos").Top
.Left = Range("TopPos").Left
.Width = Range("GraphArea").Width
.Height = Range("GraphArea").Height
End With
End With
ActiveChart.Legend.Delete
ActiveWindow.Visible = False
Dim Cht as Chart
Cells(LRow + 2, 1).RowHeight = 200
Range(Cells(5, 1), Cells(LRow - 1, 1)).Name = "HeaderArea"
Range(Cells(5, LCol), Cells(LRow - 1, LCol)).Name = "DataArea"
Cells(LRow + 2, 1).Name = "TopPos"
Range(Cells(LRow + 2, 1), Cells(LRow + 2, LCol)).Name = "GraphArea"
' draw histogram
Set Cht = Charts.Add
Set Cht = Cht.Location(WHERE:=xlLocationAsObject, Name:="Q&A Input Output")
With Cht
.ChartType = xlColumnClustered
.SetSourceData Source:=Union(Range("HeaderArea"), Range("DataArea")), PlotBy:=xlColumns
With .Parent
.Top = Range("TopPos").Top
.Left = Range("TopPos").Left
.Width = Range("GraphArea").Width
.Height = Range("GraphArea").Height
End With
End With
ActiveChart.Legend.Delete
ActiveWindow.Visible = False
