macro pour générer des graph's
Bonjour,
Je souhaiterais automatiser la création de graphiques (X,Y) à partir de macro, j'utilise deux colonnes de 100 lignes. 1ere colonne représente X et la deuxième colonne représente Y.
j'ai crée une Macro VBL, mais le grapch généré dessine 100 points mais pas de courbe (X,Y), qlqn pour rectifier la macro svp
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Sub CreateChart()
Range(Cells(1, 1), Cells(100, 2)).Select
myrange = Selection.Address
mysheetname = ActiveSheet.Name
ActiveSheet.ChartObjects.Add(300, 20, 600, 200).Select
Application.CutCopyMode = False
ActiveChart.ChartWizard _
Source:=Sheets(mysheetname).Range(myrange), _
Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
Title:="titre", CategoryTitle:="time [sec]", _
ValueTitle:="data", ExtraTitle:=""
End Sub |
