Problema Identico...
salve ragazzi, il mio problema è identico... dato un grafico vorrei ottenere delle caselle con i coefficienti della linea di tendenza. non sono in grado di creare il pulsante activex. come posso farlo?
grazie mille
[POSTQUOTE][QUOTE:117281435=Zer0kelvin, 13/05/2012 10:16]...nessuno?
vabbè!
Ho optato per la soluzione che crea meno complicazioni; un pulsante ActiveX che aggiorna i valori.
Il codice è questo:
[TESTO]Private Sub CommandButton1_Click()
Dim s, x3, x2, x, c
Dim i1, i2, i3, f1, f2, f3, ic, fc
Me.ChartObjects("Grafico 1").Activate
s = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
i3 = InStr(s, "=") + 1
f3 = InStr(s, "x3")
x3 = Val(Replace(Mid(s, i3, f3 - i3), ",", "."))
i2 = f3 + 3
f2 = InStr(s, "x2")
x2 = Val(Replace(Mid(s, i2, f2 - i2), ",", "."))
i1 = f2 + 3
f1 = InStr(s, "x ")
x = Val(Replace(Mid(s, i1, f1 - i1), ",", "."))
ic = f1 + 2
fc = InStr(s, "R²") - 1
c = Val(Replace(Mid(s, ic, fc - ic), ",", "."))
' MsgBox "x3 = " & x3 & vbCrLf & "x2 = " & x2 & vbCrLf & "x = " & _
' x & vbCrLf & "c = " & c
Range("E3") = x3
Range("F3") = x2
Range("G3") = x
Range("H3") = c
Range("E3").Activate
End Sub[/TESTO]Questo è il file con la modifica:
[/QUOTE][/POSTQUOTE]