Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. Visual Studio 6.0
Creare un grafico direttamente in excel 2007 usando vb.net 2010
mercoledì 09 marzo 2011 - 00.07
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
Elenco Tags
VB.NET
|
.NET 3.5
|
Windows 7
|
Windows XP
|
Visual Studio 2010
|
Visual Studio 2008
|
Visual Studio 2005
|
Office 2010
|
Office 2007
|
Chrome
|
Firefox
|
Javascript
Summerwind
Profilo
| Newbie
3
messaggi | Data Invio:
mer 9 mar 2011 - 00:07
Ciao a tutti,
sono nuovo nel forum e spero di stare postando la domando nel modo corretto e nel posto giusto.
Sto cercando di creare un grafico in excel 2007 da codice in vb.net 2010
Ho però un problema per quanto riguarda impostare i valori da usare lungo l'asse x.
Per ora sono riuscito a far scrivere nelle celle di excel da A2 a A20 i valori dell'asse x e da B2 a B20 quelli per l'asse y.
con il seguente codice:
Dim XlaDati As Excel.Application
Dim XlwbDati As Excel.Workbook
Dim XlshDati As Excel.Worksheet
XlaDati = CreateObject("Excel.Application")
XlwbDati = XlaDati.Workbooks.Add
XlshDati = XlwbDati.ActiveSheet
XlshDati.Name = "Transfer_Impedance"
XlaDati.Visible = True
With XlshDati.Cells(1, 1)
'inserisco il valore
.value = "Transfer Impedance"
'lo rendo in grassetto
.font.bold = True
'gli do la dimensione
.font.size = 10
'rendo la cella di dimensioni uguali al testo
.EntireColumn.autofit()
End With
(metto i vari valori nelle celle - ometto il codice ma vi assicuro che i valori sono caricati correttamente)
With XlshDati.Application
.Charts.Add()
.ActiveChart.ChartType = XlChartType.xlXYScatterLinesNoMarkers
.ActiveChart.SeriesCollection(1).values = XlshDati.Range(B2:B20) 'per l'asse y
.ActiveChart.SeriesCollection(1).XValues = XlshDati.Range(A2:A20) 'per l'assex
end with
ma il comando
.ActiveChart.SeriesCollection(1).XValues = XlshDati.Range(A2:A20)
mi genera un errore, il VB mi dice che non esiste il metodo xvalues
ho provato anche in questo modo
With .ActiveChart.SeriesCollection.NewSeries
.Name = "Transfer Impedance"
.XValues = XlshDati.Range(strTemp1)
.values = XlshDati.Range(strTemp2)
End With
ma senza successo
Per l'asse y nessun prob. mentre per l'asse x si genera l'errore di prima.
Qualcuno saprebbe aiutarmi?
Grazie
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !