Creare un grafico direttamente in excel 2007 usando vb.net 2010

mercoledì 09 marzo 2011 - 00.07
Tag 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

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



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 !
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5