Results 1 to 3 of 3

Thread: chart label problem

Threaded View

  1. #1

    Thread Starter
    Frenzied Member
    Join Date
    Feb 2007
    Location
    Malaysia
    Posts
    1,370

    chart label problem

    I don't know how to label the chart base on year..From the picture I attach below, you can see the label R2.How Could I label it?I successful label 2007 only. I want to change the default label R2 to "2006". How to do that?

    Code:
     Dim db1 As Database
      Dim rs1 As Recordset
         
        Set db1 = OpenDatabase("C:\chart2\chart\demoproject.mdb")
       ' Set rs1 = db1.OpenRecordset("demoproject")
       Set rs1 = db1.OpenRecordset("table1")
        
      
    MSChart1.Enabled = True
    MSChart1.Visible = True
     
    rs1.MoveLast
    'Storing all the values of the records in an array arr(m,n)
    'where m is the number of records and n is the number of fields
    m = rs1.RecordCount
    n = rs1.Fields.Count - 1
    
    rs1.MoveFirst
    ReDim arr(m, n)
    With rs1
            For i = 1 To m
            For j = 1 To n
            If j = 1 Then
            arr(i, j) = !Max
            'val1 = val1 + !Pondy
            'MsgBox (arr(i, j))
            End If
            If j = 2 Then
            arr(i, j) = !Min
            'val2 = val2 + !kkl
            End If
            Next j
            .MoveNext
            Next i
    End With
    rs1.MoveLast
    With rs1
     
    End With
    rs1.MoveFirst
    With MSChart1
            ' Displays a 2d chart with 2 columns and 2 rows
            ' data.
            '.Rowlabel will give label to Rows in X axis
            '.Columnlabel will give label to Columns in Y axis
            .Title.Text = "Hasil Padi"
            .chartType = VtChChartType2dBar
            .ColumnCount = n
            .RowCount = m
            For Row = 1 To m
                For Column = 1 To n
                    .Column = Column
                    .Row = Row
                    
                    If Row = 1 Then
                    .RowLabel = "2007"
            
                    End If
                    
                   ' If Row = 2 Then
                    '.RowLabel = "2006"
            
                    'End If
                    
                    If Column = 1 Then
                    .ColumnLabel = "Max"
                    End If
                    If Column = 2 Then
                    .ColumnLabel = "Min"
                    End If
                    
        
                    '.data will accept the values to the datapoints.
                    .Data = arr(Row, Column)
                Next Column
            Next Row
            ' Use the chart as the backdrop of the legend.
            .ShowLegend = True
            .SelectPart VtChPartTypePlot, index1, index2, index3, index4
           
            .EditCopy
            .SelectPart VtChPartTypeLegend, index1, index2, index3, index4
            
            .EditPaste
        End With
     
        With MSChart1.Plot
        .Axis(VtChAxisIdY).AxisTitle = "Hasil Padi per Kg/hektar"
    
        .Axis(VtChAxisIdX).AxisTitle = "Tahun"
        End With
             With MSChart1.Plot
             'Filling colours for each item
             .SeriesCollection.Item(1).DataPoints.Item(-1).Brush.FillColor.Red = 133
             .SeriesCollection.Item(2).DataPoints.Item(-1).Brush.FillColor.Green = 100
             'To display the data values at the desired location over the datapoints of the item
             .SeriesCollection.Item(1).DataPoints.Item(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
             .SeriesCollection.Item(2).DataPoints.Item(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
          
            
              
             
        End With
    Attached Images Attached Images  

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width