Použití webové součásti Graf s jazyka

Překlady článku Překlady článku
ID článku: 235885 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento článek poskytuje přehled, jak použít Office Web Components graf ve formuláři jazyka vizualizovat související data. Více konkrétně kód v tomto článku ukázku podle příkladu proveďte následující:
  • Použít pole data pro graf.
  • Použijte sadu záznamů ADO pro data grafu.
  • Použít data tabulky pro graf.
  • Vytvoření více grafů v jednom chartspace
  • Vytvořit graf kombinaci. - a -

  • Formát grafu různé součásti, například OS, datalabels, řad, plotareas a další.

Další informace

Kroky vytvoření ukázkových

  1. Spuštění nového projektu standardní EXE v jazyka. Jako výchozí je vytvořen formulář Form1.
  2. V nabídce projekt klepněte na tlačítko součásti. Microsoft Office Web Components 9.0 vyberte a klepněte na tlačítko OK.
  3. Přidejte následující ovládací prvky do formuláře s vlastnostmi označen:

    Zmenšit tuto tabulkuRozšířit tuto tabulku
    TYPENÁZEVTitulek
    ChartSpaceChartSpace1-
    DataSourceControlDataSourceControl1-
    CommandButtonCommand1Použít Arrays
    CommandButtonCommand2Použít ADO Recordset
    CommandButtonCommand3Pomocí tabulky


    Poznámka: velikost ChartSpace ovládací prvek na formuláři, takže zabírá největší formuláře co nejvíce zároveň umožňuje pro další ovládací prvky na formuláři.
  4. Přidejte následující kód modulu 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
    					
    Poznámka: pravděpodobně nutné upravit připojovací řetězec v Command2_Click události tak, aby správně odkazuje na cestu NWIND.MDB, které je ve výchozím nastavení nainstalován do adresáře jazyka:
       DataSourceControl1.ConnectionString = _
            "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
            "DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"
    					
  5. V nabídce projekt klepněte na tlačítko Vlastnosti. Vyberte kartu zpřístupnit, zrušte výběr Odebrat informace o Nepoužívaní prvky ActiveX a klepněte na tlačítko OK.
  6. Stisknutím klávesy F5 spustit program.
  7. Klepněte na tlačítko Použít Arrays. Kombinovaný graf s dvě osy hodnot vytvořena. Graf používá data z matice.
  8. Klepněte na tlačítko Použít ADO Recordset. Dva grafy jsou vytvořeny v Chartspace; pruhový graf a rozložený výsečový graf s popisky dat. Chartspace používá pro jeho data DataSourceControl a odkazuje DataSourceControl databázi prostřednictvím připojení ADO.
  9. Klepněte na tlačítko Použít tabulka. Bodový graf je vytvořen, který používá ovládací prvek tabulka s vzorce v buňkách jako jeho data. Ovládací prvek tabulka je dynamicky přidány a odebrat v době spuštění.

Vlastnosti

ID článku: 235885 - Poslední aktualizace: 13. července 2004 - Revize: 1.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Office Chart Component 9.0, run time
Klíčová slova: 
kbmt kbhowto KB235885 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:235885
Právní omezení pro obsah znalostní báze týkající se produktů, jejichž podpora byla ukončena
Tento článek byl napsán o produktech, pro které společnost Microsoft již neposkytuje nadále podporu. Článek je tedy nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.

Dejte nám zpětnou vazbu

 

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