August 24
Microsoft Excel è un foglio di calcolo popolare che crea anche grafici e diagrammi di tutte le varietà. Parte di Microsoft Office, Excel rende la visualizzazione e analisi dei dati facile e veloce. Tuttavia, se è necessario creare un gran numero di grafici, farlo a mano può richiedere molto tempo e soggetto a errori. Invece, considerare l'utilizzo di Microsoft Visual Basic .NET, nuova e migliorata linguaggio di programmazione Visual Basic di Microsoft, per automatizzare il compito. La sua integrazione Excel incorporato rende questo un gioco da ragazzi.
1 Aprire Visual Basic .NET e creare un nuovo progetto.
2 Fare clic con il progetto e scegliere Aggiungi riferimento. Vai alla scheda COM e fare clic su Libreria oggetti di Microsoft Excel. Fare clic su OK.
3 Aggiungere il codice nella funzione principale del progetto per creare una nuova istanza dell'applicazione Excel. Dovrebbe sembrare come questo:
Dim excelApp come nuovo Microsoft.Office.Interop.Excel.Application ()
4 Aggiungere il codice per creare un nuovo foglio di calcolo. Per esempio:
Dim wb Come Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Add ()
5 Aggiungere il codice per recuperare il foglio di lavoro di primaria dal foglio di calcolo. Per esempio:
foglio fioco come Microsoft.Office.Interop.Excel.Worksheet = wb.ActiveSheet
6 Aggiungere i dati al foglio di calcolo. Ad esempio, per impostare il valore nella cella superiore sinistra del foglio (cella A1) a 5, cella A2 a 8, e A3 a 4, scrivere il codice seguente:
sheet.Cells (1, 1) .Value = 5
sheet.Cells (1, 2) .Value = 8
sheet.Cells (1, 3) .Value = 4
Fate questo per tutti i dati che desideri utilizzare nel grafico.
7 Aggiungere il codice per creare il grafico:
Grafico fioco come Microsoft.Office.Interop.Excel.Chart = sheet.Parent.Charts.Add ()
chart.ChartWizard (sheet.Range ( "A1: A3"), Microsoft.Office.Interop.Excel.XlChartType.xl3DColumn,, Excel.XlRowCol.xlColumns)
8 Aggiungere il codice per impostare la serie di dati per il grafico:
Dim serie Come Microsoft.Office.Interop.Excel.Series = chart.SeriesCollection (1)
series.XValues = sheet.Range ( "A1", "A3")
9 Il grafico è ora completa. È possibile personalizzare ulteriormente utilizzando le funzioni fornite da Ufficio Developer Center del Microsoft Developers Network a http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.chart(office.11).aspx