Réalisation de graphiques sous sigmaplot via vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 417 fois - Téléchargée 33 fois

Commenter

Contenu du snippet

Ce code permet de travailler sur des données récupérées d'un fichier excel et de les traiter sous SigmaPlot (logiciel de graph) pour réaliser le ou les graphes correspondants.
Il est ensuite possible de modifier le type du graphique.

Source / Exemple : 


'-------------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

A voir également

S'inscrire maintenant

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.