Private Sub UserForm_Initialize() 
     
    Dim ChtSpc As OWC11.ChartSpace 
    Dim cht As OWC11.ChChart 
    Dim Sps As OWC11.Spreadsheet 
    Dim ws As Worksheet 
     
    Set ChtSpc = Me.ChartSpace1 
    Set Sps = Me.Spreadsheet1 
    Set ws = ThisWorkbook.Worksheets("ChartData") ' change to you worksheet name
     
    Sps.Range("A1:Z1000") = ws.Range("A1:Z1000").Value ' Set worksheet range to sheet control range
    Set ChtSpc.DataSource = Sps ' set sheet control as chart control source
    Set cht = ChtSpc.Charts.Add ' Add blank chart
     
     ' Set data for chart
    With cht 
        .SetData chDimCategories,  0 , "A4:A15" ' change to your category range
        .SeriesCollection( 0 ).SetData chDimValues,  0 , "B4:B15" ' change to your series 1 range
        .HasLegend = True 
        .SeriesCollection.Add 
        .SeriesCollection( 1 ).SetData chDimValues,  0 , "C4:C15" ' change to your series 2 range
        .HasTitle = True 
        .Title.Caption = Sps.Range("A1") ' change to your title cell
        .Title.Interior.Color =  1677215  
        .Type = chChartTypeColumn3D 
    End With 
     
     ' add some fancy shading
    ChtSpc.Interior.SetTwoColorGradient chGradientFromCenter, chGradientVariantEnd,  9125192 ,  16777215  
     
     ' hide the sheet control
    Me.Spreadsheet1.Visible = False 
     ' set the height of the chart control
    Me.ChartSpace1.Height =  480  
     
End Sub 

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

Dim oChart
Dim Spreadsheet1 As OWC10.Spreadsheet
Dim c

Set oChart = ChartSpace1.Charts( 0 ) 'point to our chart by index #

Set Spreadsheet1 = CreateObject("OWC10.Spreadsheet")
Spreadsheet1.Range("A1", "B650") = Sheet1.Range("A1", "B650").Value

Set c = ChartSpace1.Constants
Set ChartSpace1.DataSource = Spreadsheet1

Dim objChart
    Dim objSpreadsheet
    Dim chConstants
    Dim chtChart1

    Set objChart = Forms!frmCharts!owcChart
    Set objSpreadsheet = Forms!frmReportCross!owcReportCross
    Set chConstants = objChart.Constants

    Dim ChtSpc As OWC11.ChartSpace 
    Dim chtChart1 As OWC11.ChChart 
    Dim objSpreadsheet As OWC11.Spreadsheet 


    Set objChart = Forms!frmCharts!owcChart
    Set objSpreadsheet = Forms!frmReportCross!owcReportCross
    Set ChtSpc = ??? 'что в вашем случае вам разбираться

chtChart1.Clear
chtChart1.Refresh

    Sps.Range("A1:Z1000") = ws.Range("A1:Z1000").Value ' дипазон ваш укажите
    Set ChtSpc.DataSource = objSpreadsheet ' set sheet control as chart control source


...