Chart only Using First Table Value for a Range

[BrianExcel]

The following code is successfully generating a chart from the table I have on the sheet...

Range("Sum7EditsTable[[#All],[Venue]]").Select
ActiveWorkbook.Names.Add Name:="VenueColumn", RefersToR1C1:="=Sum7EditsTable[[#All],[Venue]]"
Range("Sum7EditsTable[[#All],[Percent Edit]]").Select
ActiveWorkbook.Names.Add Name:="PercentColumn", RefersToR1C1:="=Sum7EditsTable[[#All],[Percent Edit]]"

ActiveWorkbook.ActiveSheet.Shapes.AddChart(201, xlColumnClustered).Select
ActiveChart.ApplyChartTemplate ("C:\Users\brian.burdette\AppData\Roaming\Microsoft\Templates\Charts\OpsReviewHistogramTemplate.crtx")

In looking closer, however, the y axis (bottom) is numbering each value as 1, 2, 3 instead of incorporating the actual values in column 1 (the y axis).

WHat do I need to do to have my values represent the y axis instead of just the title?

 

[pbornemeier]

Some generic VBA working with charts

    Set objChart = ActiveSheet.ChartObjects.Add(10, 10, 600, 450)
    With objChart.Chart
        .SeriesCollection.Add (ActiveSheet.Range("A1"))
        .SeriesCollection(1).XValues = rDateRange
        .SeriesCollection(1).Values = rOEERange
        .PlotBy = xlColumns
        .ChartArea.AutoScaleFont = False
        .ChartType = xlBarStacked
        .HasTitle = True
        .ChartTitle.Characters.Text = "My Title"
        .ChartTitle.Font.Bold = True
        .ChartTitle.Font.Size = 12
    End With

For your specific question

    Set objChart = ActiveSheet.ChartObjects(1)
     With objChart.Chart
         .SeriesCollection(1).XValues = Range("Sum7EditsTable[[#All],[Venue]]")
         .SeriesCollection(1).Values = Range("Sum7EditsTable[[#All],[Percent Edit]]")
    End With