Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 636 fois - Téléchargée 35 fois
'-------------récupération des données par copier-coller docex.Windows(2).Activate docex.ActiveWorkbook.Application.Range("A1:C" & j).Select docex.ActiveWorkbook.Application.selection.Copy '-------------exportation données fichier temporaire sous sigmaplot Set exel = New SigmaPlot.Application Dim currentNotebook Set currentNotebook = exel.Notebooks.Add exel.ActiveDocument.CurrentDataItem.Paste exel.ActiveDocument.CurrentDataItem.Open sim = True '-------------on nomme les colonnes Dim s Set s = exel.ActiveDocument.CurrentDataItem.DataTable.NamedRanges.Add("treatment", 0, 0, 1, -1, True) Set s = exel.ActiveDocument.CurrentDataItem.DataTable.NamedRanges.Add("time(min)", 1, 0, 1, -1, True) Set s = exel.ActiveDocument.CurrentDataItem.DataTable.NamedRanges.Add("concentration(" & unit & ")", 2, 0, 1, -1, True) '-------------création du graphes linéaire exel.ActiveDocument.CurrentDataItem.Open '----sélection des colonnes (B0:B30;C0:C30) Dim columnsperplot() ReDim columnsperplot(2, 1) columnsperplot(0, 0) = 1 columnsperplot(1, 0) = 0 columnsperplot(2, 0) = 30 columnsperplot(0, 1) = 2 columnsperplot(1, 1) = 0 columnsperplot(2, 1) = 30 Dim plotcolumncountarray() ReDim plotcolumncountarray(0) plotcolumncountarray(0) = 2 '---------ajout d'une feuille graphique exel.ActiveDocument.NotebookItems.Add (CT_GRAPHICPAGE) Dim graphpage Set graphpage = exel.ActiveDocument.NotebookItems("Graph PAGE 1") graphpage = exel.ActiveDocument.CurrentPageItem.CreateWizardGraph("Line and Scatter Plot", "Simple Straight Line", "XY Pair", columnsperplot, plotcolumncountarray, "Worksheet Columns") '----------------création d'un graph linéaire avec points, simple exel.Application.Visible = True
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.