Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

creare grafico/trend 6 penne su userform

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

creare grafico/trend 6 penne su userform

Postdi prog_jlaw » 01/05/07 21:27

--- excel 2000 ---
--- excel vba ---

vorre creare un grafico di 5-6 penne su di una userform , ogni penna legge i reltivi valori da una colonna di excel ( trend asse Y ) in funzione di tempi letti sulla relativa colonna di excel ( trend asse X ) .
ma non so da dove iniziare ! :cry: qualcuno puo aiutarmi ? sarebbe bello avere un esempietto funzionante ma ... non pretendo tanto ! accetto consigli e suggerimenti su come partire .

grazie a chiunque mi rispondera
prog_jlaw
Newbie
 
Post: 8
Iscritto il: 14/04/07 22:20

Sponsor
 

Postdi Anthony47 » 01/05/07 23:41

Scusa, non ho capito dove devi inserire il grafico, e che cosa intendi con "penna".
Fatti sentire, ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

trovato!

Postdi prog_jlaw » 03/05/07 22:52

http://www.vbfrance.com/codes/INSERER-G ... 37885.aspx
spiega come fare un trend su di una userform...
di seguito il codice:
-------------------------------------------------------------
Important :
Vous devez inserer le controle supplementaire dans la barre d'outil " Microsot Office Chart 9" et creer le graphique sur le Userform.

Private Sub UserForm_Activate()
Dim oChart, oSeries1, oSeries2
Dim oAxis1, oAxis2, oConst
Dim S1(43), S2(43), S3(43) As Variant

'on crée les tableaux de variables
For i = 1 To 43
S1(i) = Cells(i + 1, 2)
S2(i) = Cells(i + 1, 3)
S3(i) = Cells(i + 1, 4)
Next



'on efface tout
ChartSpace1.Clear
Set oConst = ChartSpace1.Constants
' Création diagramme dans le ChartSpace
Set oChart = ChartSpace1.Charts.Add
' Ajout 1ere série de type XYscatter plot
Set oSeries1 = oChart.SeriesCollection.Add
oSeries1.Caption = "Current"
oSeries1.Type = oConst.chChartTypeScatterSmoothLine ' on peut changer le type, se reférer à l'explorateur d'objet
oSeries1.SetData oConst.chDimXValues, oConst.chDataLiteral, S1()
oSeries1.SetData oConst.chDimYValues, oConst.chDataLiteral, S2()
' Ajout 2eme série de type XYscatter plot
Set oSeries2 = oChart.SeriesCollection.Add
oSeries2.Caption = "estimate"
oSeries2.Type = oConst.chChartTypeScatterSmoothLine
oSeries2.SetData oConst.chDimXValues, oConst.chDataLiteral, S1()
oSeries2.SetData oConst.chDimYValues, oConst.chDataLiteral, S3()

' les Axes
Set oAxis1 = oChart.Axes(oConst.chAxisPositionLeft)
oAxis1.Scaling.Maximum = 0.05
oAxis1.Scaling.Minimum = 0.025
oAxis1.NumberFormat = "0.0%"
oAxis1.HasMajorGridlines = True
Set oAxis2 = oChart.Axes(oConst.chAxisPositionBottom)
oAxis2.Scaling.Maximum = 30
oAxis2.Scaling.Minimum = 0
oAxis2.NumberFormat = "0"
oAxis2.HasMajorGridlines = True
'on indiue la légende
oChart.HasLegend = True
oChart.Legend.Position = oConst.chLegendPositionBottom
'on définit la couleur de fonds
oChart.PlotArea.Interior.Color = "white"

'on peut définir toutes les propriétés supplémentaires en se référant à l'explorateur sous "spacechart"
End Sub


funziona egregiamente!
prog_jlaw
Newbie
 
Post: 8
Iscritto il: 14/04/07 22:20


Torna a Applicazioni Office Windows


Topic correlati a "creare grafico/trend 6 penne su userform":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti

cron