[R] Graphique Excel
Posté : ven. 31 déc. 2010 13:35
Bonjour a tous et bonne année...
Grâce a "20100" , "SrBelial" et leurs tuto = http://autoitscript.fr/forum/viewtopic. ... 24&start=0
Je me suis lancer dans l'utilisation d' Excel sous Autoit.
Je développe un script qui exploite une carte automate VM110.
En lisant une de mes entrées analogique j'obtiens les données d' un capteur de température; je les stock en fonction de l'heure du relevé.
Je cherche a afficher un graph Excel de ses données.
Tout fonctionne bien mais je bloque sur l'axe des abscisse
Voila ou j'en suis =
(script de test)
Voici la macro dont je doit "m' inspirer"
C'est cette ligne que je n'arrive pas a 'traduire en "Autoit" =
ActiveChart.SeriesCollection(1).XValues = "=TEST_ALEX!R1C1:R6C1"
Elle doit me permetre d'avoir les données de la colonne A pour abscisse
Voici le graphe que j'aimerai obtenir =
J'ai effectuer des recherches sur le forum anglais, j'ai bien trouvé des scripts ou ils utilise cette attribut mais je n'ai pas réussi a l'adapter chez moi
Voila!! Vous savez tous!
Si quelqu'un peu m'aider, merci d'avance.
Grâce a "20100" , "SrBelial" et leurs tuto = http://autoitscript.fr/forum/viewtopic. ... 24&start=0
Je me suis lancer dans l'utilisation d' Excel sous Autoit.
Je développe un script qui exploite une carte automate VM110.
En lisant une de mes entrées analogique j'obtiens les données d' un capteur de température; je les stock en fonction de l'heure du relevé.
Je cherche a afficher un graph Excel de ses données.
Tout fonctionne bien mais je bloque sur l'axe des abscisse
Voila ou j'en suis =
(script de test)
Code : Tout sélectionner
Local $oExcel = ObjCreate("Excel.Application")
With $oExcel
.SheetsInNewWorkbook = 1
.Visible = 1
.WorkBooks.Add
.ActiveWorkbook.Worksheets(1).Name = "TEST_ALEX"
.ActiveWorkbook.Worksheets(1).Cells(1,1) = "8H00"
.ActiveWorkbook.Worksheets(1).Cells(1,2) = "2"
.ActiveWorkbook.Worksheets(1).Cells(2,1) = "9H00"
.ActiveWorkbook.Worksheets(1).Cells(2,2) = "4"
.ActiveWorkbook.Worksheets(1).Cells(3,1) = "10H00"
.ActiveWorkbook.Worksheets(1).Cells(3,2) = "8"
.ActiveWorkbook.Worksheets(1).Cells(4,1) = "11H00"
.ActiveWorkbook.Worksheets(1).Cells(4,2) = "2"
.ActiveWorkbook.Worksheets(1).Cells(5,1) = "12H00"
.ActiveWorkbook.Worksheets(1).Cells(5,2) = "4"
.ActiveWorkbook.Worksheets(1).Cells(6,1) = "13H00"
.ActiveWorkbook.Worksheets(1).Cells(6,2) = "1"
.ActiveWorkBook.Charts.Add
.ActiveWorkBook.Charts(1).Name = "GRAPH_TEST_ALEX"
.ActiveWorkBook.Charts(1).ChartType =65 ;65 = xlLineMarkers Line with Markers.
.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range("B1:B6"),2) ;2= xlRowCol xlColumns
.ActiveWorkBook.Charts(1).SeriesCollection(1).XValues = [color=#FF0000]????[/color]
EndWith
While 1
Sleep(50)
WEnd
Func stop()
$oExcel.ActiveWorkBook.Saved = 1
$oExcel.Quit
Exit
EndFuncVoici la macro dont je doit "m' inspirer"
Code : Tout sélectionner
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 31/12/2010 par AL
'
'
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("TEST_ALEX").Range("A1:B6"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=TEST_ALEX!R1C1:R6C1"
ActiveChart.Location Where:=xlLocationAsObject, Name:="TEST_ALEX"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
ActiveChart.SeriesCollection(1).XValues = "=TEST_ALEX!R1C1:R6C1"
Elle doit me permetre d'avoir les données de la colonne A pour abscisse
Voici le graphe que j'aimerai obtenir =
J'ai effectuer des recherches sur le forum anglais, j'ai bien trouvé des scripts ou ils utilise cette attribut mais je n'ai pas réussi a l'adapter chez moi
Voila!! Vous savez tous!
Si quelqu'un peu m'aider, merci d'avance.