Chartfield scaling

Chartfield scaling

Posted by: saidnai on 28 April 2022, 8:32 pm EST

• 

  saidnai

  • Post Options:
  • Link
    Copy

  Posted 28 April 2022, 8:32 pm EST - Updated 3 October 2022, 1:30 pm EST

  Hello,

  I am using a function to create Chart. It works fine. But i could not set scaling for the AxisY. I need to ovoid the decimal as shown in the attached picture. Is there a possibility to get only full numbers (1,2,3,4,5, e.t.c).

  I use the following function:
  
  Private Function CreateChart1() As ChartField
  
  Try
  
  Dim chart = CreateChartField(“Chart1”, “TmpStatistikEK1”)
  
  chart.Top = 4100
  
  chart.Left = 400
  
  chart.Height = 3500
  
  chart.Width = 4800
  
  chart.Border.Style = BorderStyle.FixedSingle 'DashStyle.Solid
  
  'chart.Header.Text = “Reklamation 1”
  
  chart.ChartArea2D.Inverted = False
  
  chart.ChartArea2D.AxisX.OnTop = True
  
  chart.ChartArea2D.AxisX.AnnoRotation = 50
  
  chart.ChartArea2D.AxisX.Font.Bold = True
  
  chart.ChartArea2D.AxisX.Visible = True

          chart.ChartArea2D.AxisY.GridMajor.Visible = True
          chart.ChartArea2D.AxisY.Font.Bold = True
          chart.ChartArea2D.AxisY.AutoMax = False
          chart.ChartArea2D.AxisY.AutoMin = False
          chart.ChartArea2D.AxisY.Min = 1 'Scaling Min
          chart.ChartArea2D.AxisY.Max = 1 'Scaling Max
  
          'TickMajor / TickMinor
          'chart.ChartArea2D.AxisY.TickMajor = 1
          'chart.ChartArea2D.AxisY.TickMinor = 1
          'AutoMin / AutoMax
          'chart.ChartArea2D.AxisY.AutoMin = 1
          'chart.ChartArea2D.AxisY.AutoMax = 1
          'AutoMajor / AutoMinor
          'chart.ChartArea2D.AxisY.AutoMajor = 1
          'chart.ChartArea2D.AxisY.AutoMinor = 1
          'UnitMajor / UnitMinor
          'chart.ChartArea2D.AxisY.UnitMajor = 5
          'chart.ChartArea2D.AxisY.UnitMinor = 5
          'GridMajor / GridMinor
          'chart.ChartArea2D.AxisY.GridMinor.MiterLimit = 10
          'chart.ChartArea2D.AxisY.GridMajor.MiterLimit = 20
          'chart.ChartArea2D.AxisY.GridMinor.Visible = False
          'AutoOrigin
          'chart.ChartArea2D.AxisY.AutoOrigin = 1
          'Origin
          'chart.ChartArea2D.AxisY.Origin = 1
          'Breite der Strich = TickFactorMajor / TickFactorMinor = 
          'chart.ChartArea2D.AxisY.TickFactorMajor = 10
          'chart.ChartArea2D.AxisY.TickFactorMinor = 1
          'TickGauge
          'chart.ChartArea2D.AxisY.TickGauge = 1
  
          chart.Legend.Visible = False                                 'Die Legende zeigen oder nicht
          'chart.Legend.Location = 
  
          Dim group = chart.ChartGroups2D.Group0
          group.ChartType = C1.Win.FlexReport.Chart.Chart2DType.Bar   'Chart2DType.Bar
          Dim data = group.ChartData
          data.IsForEachRecord = True                                 ' show value of each record in data source
          data.CategoryGroups.AddNewGroup("=TxTWert")      ' group by FullName
          data.ColorMode = ChartColorMode.ColorByCategory             'Für Unterschiedliche Fareben    
  
          Dim seriesTemplate = data.SeriesValues.AddNewSeries()
          seriesTemplate.DataValues.AddNewValue("=AnzLieferungen")    ' show count in AxisY
          seriesTemplate.LegendEntry = True
          'Show the values
          seriesTemplate.DataLabel.Visible = True
          seriesTemplate.DataLabel.Text = "{#YVAL}"
          'Values display location and fonts
          seriesTemplate.DataLabel.Compass = ChartLabelCompass.North 'i.e. On top of bar
          seriesTemplate.DataLabel.Style.Font.Bold = True
          Return chart
  
      Catch ex As Exception
          MsgBox("Error 'CreateChart1' :" & vbCrLf & ex.ToString, MsgBoxStyle.Critical)
      End Try
  End Function
  

  Best regards
  
  Said
  
  

• 

  nitin.sharma

  

  • Post Options:
  • Link
    Copy

  Posted 1 May 2022, 7:40 pm EST

  Hi Said,

  Thanks for the code snippet and snapshot.

  You need to set AxisY.UnitMajor=1 to achieve your requirement as(see code snippet)

  
  chart.ChartArea2D.AxisY.AutoMajor = False
  chart.ChartArea2D.AxisY.UnitMajor = 1
  
  
  

  Please refer the attached sample for the same: FlexChartScale.zip

  Best Regards,
  
  Nitin