Cómo utilizar el componente de gráfico Web con Visual Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 235885 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

Este artículo proporciona una introducción a cómo utilizar el componente Web de Chart de Office en un formulario de Visual Basic para visualizar datos relacionados. Más concretamente, el código en este artículo muestra por ejemplo cómo hacer lo siguiente:
  • Usar datos de matriz para un gráfico.
  • Utilice un objeto recordset de ADO para datos del gráfico.
  • Usar datos de la hoja de cálculo para un gráfico.
  • Crear múltiples gráficos en un único espacio de gráfico.
  • Crear un gráfico de combinación. - y -

  • Dar formato a los componentes de gráfico diferente, como ejes, datalabels, serie, plotareas y más.

Más información

Pasos para crear ejemplo

  1. Inicie un nuevo proyecto EXE estándar en Visual Basic. Se creará Form1 de manera predeterminada.
  2. Haga clic en componentes en el menú proyecto . Seleccione Microsoft Office Web Components 9.0 y haga clic en Aceptar .
  3. Agregue los siguientes controles al formulario con las propiedades indicadas:

    Contraer esta tablaAmpliar esta tabla
    TipoNombreTítulo
    ChartSpaceChartSpace1-
    DataSourceControlDataSourceControl1-
    CommandButtonCommand1Utilizar matrices
    CommandButtonComando2Utilice el objeto Recordset de ADO
    CommandButtonCommand3Utilice la hoja de cálculo


    Nota : el control ChartSpace en el formulario de tamaño para que ocupe parte del formulario como sea posible pero permitiendo para otros controles en el formulario.
  4. Agregue el código siguiente al módulo de 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 = chLegendPositionBottom
    
    End Sub
    
    Private 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 Sub
    
    Private 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 : es posible que tiene que modifique la cadena de conexión en el evento Comando2_Click para que hace referencia correctamente a la ruta de Neptuno.mdb, que se instala en el directorio Visual Basic de forma predeterminada:
       DataSourceControl1.ConnectionString = _
            "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
            "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"
    					
  5. Haga clic en Propiedades en el menú proyecto . Seleccione la ficha crear , anule la selección Quitar información sobre controles ActiveX no usados y haga clic en Aceptar .
  6. Presione la tecla F5 para ejecutar el programa.
  7. Haga clic en el botón Usar matrices . Se crea un gráfico de combinación con dos ejes de valores. El gráfico utiliza datos de matrices.
  8. Haga clic en el botón Usar Recordset de ADO . Se crean dos gráficos en el ChartSpace; un gráfico de barras y un gráfico circular seccionado con rótulos de datos. El ChartSpace utiliza un DataSourceControl para sus datos y DataSourceControl hace referencia a una base de datos Access a través de una conexión ADO.
  9. Haga clic en el botón de la Hoja de cálculo de uso . Se crea un gráfico de dispersión que utiliza un control de hoja de cálculo con fórmulas en las celdas como sus datos. El control de hoja de cálculo dinámicamente es agregar y quitar en tiempo de ejecución.

Propiedades

Id. de artículo: 235885 - Última revisión: martes, 13 de julio de 2004 - Versión: 1.1
La información de este artículo se refiere a:
  • Microsoft Office Chart Component 9.0, run time
Palabras clave: 
kbmt kbhowto KB235885 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 235885
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com