Al momento sei offline in attesa che la connessione Internet venga ristabilita

Come utilizzare il componente grafico di Web con Visual Basic

Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.

Clicca qui per visualizzare la versione originale in inglese dell’articolo: 235885
Dichiarazione di non responsabilità per articoli della Microsoft Knowledge Base su prodotti non più supportati
Questo articolo è stato scritto sui prodotti per cui Microsoft non offre più supporto. L’articolo, quindi, viene offerto ‘così come è’ e non verrà più aggiornato.
Sommario
In questo articolo viene fornita una panoramica di come è possibile utilizzare il componente Web grafico di Office in un form di Visual Basic per visualizzare i dati correlati. Più specificamente, nel codice in questo articolo viene illustrato dall'esempio come effettuare le seguenti operazioni:
  • Utilizzare i dati di matrice per un grafico.
  • Utilizzare un recordset ADO per i dati del grafico.
  • Utilizzare i dati del foglio di calcolo per un grafico.
  • Creare più grafici in un singolo spazio del grafico.
  • Creare un grafico a combinazione. - e -

  • Formato grafico diverso componenti quali gli assi, datalabels, serie, plotareas e più.
Informazioni

Procedura per la creazione esempio

  1. Avviare un nuovo progetto EXE standard in Visual Basic. In base all'impostazione predefinita, viene creato il progetto Form1.
  2. Fare clic su componenti dal menu progetto . Selezionare Microsoft Office Web Components 9.0 e scegliere OK .
  3. Aggiungere i seguenti controlli al form con le proprietà indicate:

    TipoNomeDidascalia
    ChartSpaceChartSpace1-
    DataSourceControlDataSourceControl1-
    Controllo CommandButtonCommand1Utilizzare matrici
    Controllo CommandButtonCommand2Utilizzare il Recordset ADO
    Controllo CommandButtonCommand3Utilizzare il foglio di calcolo


    Nota : ridimensionare il controllo ChartSpace sul form in modo da parte del modulo possibile consentendo comunque per gli altri controlli nel modulo.
  4. Aggiungere il codice riportato di seguito al modulo di Form1:
    Private Sub Command1_Click()    'Create arrays for the x-values and the y-values    Dim xValues As Variant, yValues1 As Variant, yValues2 As Variant    xValues = Array("Beverages", "Condiments", "Confections", _                    "Dairy Products", "Grains & Cereals", _                    "Meat & Poultry", "Produce", "Seafood")    yValues1 = Array(104737, 50952, 78128, 117797, 52902, 80160, 47491, _                     62435)    yValues2 = Array(20000, 15000, 36000, 56000, 40000, 18000, 20000, _                     33000)        'Create a new chart    Dim oChart As WCChart    ChartSpace1.Clear    ChartSpace1.Refresh    Set oChart = ChartSpace1.Charts.Add        'Add a title to the chart    oChart.HasTitle = True    oChart.Title.Caption = "Sales Per Category"        'Add a series to the chart with the x-values and y-values    'from the arrays and set the series type to a column chart    Dim oSeries As WCSeries    Set oSeries = oChart.SeriesCollection.Add    With oSeries        .Caption = "1995"        .SetData chDimCategories, chDataLiteral, xValues        .SetData chDimValues, chDataLiteral, yValues1        .Type = chChartTypeColumnClustered    End With        'Add another series to the chart with the x-values and y-values    'from the arrays and set the series type to a line chart    Set oSeries = oChart.SeriesCollection.Add    With oSeries        .Caption = "1996"        .SetData chDimCategories, chDataLiteral, xValues        .SetData chDimValues, chDataLiteral, yValues2        .Type = chChartTypeLineMarkers    End With        'Add a value axis to the right of the chart for the second series    oChart.Axes.Add oChart.Axes(chAxisPositionLeft).Scaling, _        chAxisPositionRight, chValueAxis    'Format the Value Axes    oChart.Axes(chAxisPositionLeft).NumberFormat = "$#,##0"    oChart.Axes(chAxisPositionRight).NumberFormat = "0"    oChart.Axes(chAxisPositionLeft).MajorUnit = 20000    oChart.Axes(chAxisPositionRight).MajorUnit = 20000        'Show the legend at the bottom of the chart    oChart.HasLegend = True    oChart.Legend.Position = chLegendPositionBottomEnd SubPrivate Sub Command2_Click()    'Set up the DataSourceControl for the Chartspace    Dim rsd As RecordsetDef    DataSourceControl1.ConnectionString = _        "DRIVER={Microsoft Access Driver (*.mdb)}; " & _        "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"    Set rsd = DataSourceControl1.RecordsetDefs.AddNew( _             "Select * from [Category Sales for 1995]", 3)    With ChartSpace1        .Clear        .Refresh        .DataSource = DataSourceControl1        .DataMember = rsd.Name    End With         'This Chartspace will contain 2 charts. Make the layout so that the    'charts are positioned horizontally    ChartSpace1.ChartLayout = chChartLayoutHorizontal        'Create a new bar chart from the query    Dim oBarChart As WCChart    Set oBarChart = ChartSpace1.Charts.Add    With oBarChart        .Type = chChartTypeBarClustered        .SetData chDimCategories, 0, 0  'Categories are first field        .SetData chDimValues, 0, 1      'Values are second field            'Format the value axis for the bar chart so that it        'shows values in thousands (i.e., 45000 displays as 45) and        'in increments of 25000. Remove the gridlines        With .Axes(chAxisPositionBottom)            .NumberFormat = "0,"            .MajorUnit = 25000            .HasMajorGridlines = False        End With                'Change the color of the series and the plot area        .SeriesCollection(0).Interior.Color = RGB(150, 0, 150)        .PlotArea.Interior.Color = RGB(240, 240, 10)    End With        'Create a new exploded pie chart from the query    Dim oPieChart As WCChart    Set oPieChart = ChartSpace1.Charts.Add    With oPieChart        .Type = chChartTypePie        .SetData chDimCategories, 0, 0  'Categories are first field        .SetData chDimValues, 0, 1      'Values are second field        .SeriesCollection(0).Explosion = 20                'Add a legend to the bottom of the pie chart        .HasLegend = True        .Legend.Position = chLegendPositionBottom                'Add a title to the chart        .HasTitle = True        .Title.Caption = "Sales by Category for 1995"        .Title.Font.Bold = True        .Title.Font.Size = 11                'Make the chart width 50% the size of the bar chart's width        .WidthRatio = 50                'Show data labels on the slices as percentages        With .SeriesCollection(0).DataLabelsCollection.Add            .HasValue = False            .HasPercentage = True            .Font.Size = 8            .Interior.Color = RGB(255, 255, 255)        End With            End With    End SubPrivate Sub Command3_Click()   'Dynamically add a spreadsheet control to the form   Dim oSheet As Spreadsheet   Me.Controls.Add "OWC.Spreadsheet", "Sheet"   Set oSheet = Me!Sheet      'Fill the Sheet with data   With oSheet        .Range("A1:A10").Formula = "=Row()"        .Range("B1:B10").Formula = "=A1^2"        .Range("A12").Formula = "=Max(A1:A10)"        .Range("B12").Formula = "=Max(B1:B10)"   End With      'Create an xy-scatter chart using the data in the spreadsheet   Dim oChart As WCChart   With ChartSpace1        .Clear        .Refresh        .DataSource = oSheet.object        Set oChart = .Charts.Add        oChart.Type = chChartTypeScatterSmoothLineMarkers        oChart.SetData chDimXValues, 0, "a1:a10"        oChart.SetData chDimYValues, 0, "b1:b10"   End With      With oChart        'Display the Axes Titles and        'set the major units for the axes        With .Axes(chAxisPositionBottom)            .HasTitle = True            .Title.Caption = "X"            .Title.Font.Size = 8            .MajorUnit = 1        End With        With .Axes(chAxisPositionLeft)            .HasTitle = True            .Title.Caption = "X Squared"            .Title.Font.Size = 8            .MajorUnit = 10        End With                'Set the maximum and minimum axis values        .Scalings(chDimXValues).Maximum = oSheet.Range("A12").Value        .Scalings(chDimXValues).Minimum = 1        .Scalings(chDimYValues).Maximum = oSheet.Range("B12").Value                'Change the marker and line styles for the series        With .SeriesCollection(0)            .Marker.Style = chMarkerStyleDot            .Marker.Size = 6            .Line.Weight = 1            .Line.Color = RGB(255, 0, 0)        End With   End With      'Remove the spreadsheet   Me.Controls.Remove "Sheet"   End Sub					
    Nota : potrebbe essere necessario modificare la stringa di connessione nell'evento Command2_Click in modo che correttamente faccia riferimento al percorso di Nwind.mdb, che viene installato nella directory di Visual Basic per impostazione predefinita:
       DataSourceControl1.ConnectionString = _        "DRIVER={Microsoft Access Driver (*.mdb)}; " & _        "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"					
  5. Fare clic su Proprietà dal menu progetto . Selezionare la scheda Crea , deselezionare la Rimozione di informazioni sui controlli ActiveX non utilizzati e scegliere OK .
  6. Premere il tasto F5 per eseguire il programma.
  7. Fare clic sul pulsante Utilizzare matrici . Viene creato un grafico combinato con due assi dei valori. Il grafico utilizza dati provenienti da matrici.
  8. Fare clic sul pulsante Utilizza ADO Recordset . Nel ChartSpace, un grafico a barre e un grafico a torta esplosa con le etichette dati vengono creati due grafici. Il ChartSpace utilizza un controllo origine dati per i propri dati e il controllo origine dati fa riferimento a un database di Access tramite una connessione ADO.
  9. Fare clic sul pulsante Usa foglio di calcolo . Verrà creato un grafico a dispersione che utilizza un controllo foglio di calcolo con formule nelle celle come i dati. Il controllo foglio di calcolo dinamicamente aggiunti e rimossi in fase di esecuzione.
spazio del grafico OWC grafici grafico del grafico

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 235885 - Ultima revisione: 07/13/2004 14:56:20 - Revisione: 1.1

Microsoft Office Chart Component 9.0, run time

  • kbmt kbhowto KB235885 KbMtit
Feedback