using DevExpress.Docs.Office;
using DevExpress.Docs.Presentation;
using System.Drawing;

namespace PresentationApiSample;

public class Program {
    public static async Task Main(string[] _) {

        // Create a presentation and add a blank slide.
        Presentation presentation = new Presentation();
        presentation.Slides.Clear();
        Slide slide = new Slide(SlideLayoutType.Blank);
        presentation.Slides.Add(slide);

        // Insert a chart that fills the slide.
        Chart chart = new Chart();
        chart.Width = presentation.SlideSize.Width;
        chart.Height = presentation.SlideSize.Height;
        slide.Shapes.Add(chart);

        // Set text properties common for all chart text elements.
        chart.TextProperties = new TextProperties { FontSize = 24, Bold = true };

        // Add the first bar series.
        BarSeries series1 = new BarSeries();
        series1.Arguments = new ChartStringData(new[] { "Q1", "Q2", "Q3" });
        series1.Values = new ChartNumericData(new double[] { 120, 95, 140 });
        chart.Series.Add(series1);

        // Configure data labels for the first series.
        series1.DataLabels.ShowValue = true;
        series1.DataLabels.LabelPosition = BarDataLabelPosition.OutsideEnd;

        // Add the second bar series.
        BarSeries series2 = new BarSeries();
        series2.Arguments = new ChartStringData(new[] { "Q1", "Q2", "Q3" });
        series2.Values = new ChartNumericData(new double[] { 80, 110, 100 });
        chart.Series.Add(series2);

        // Configure data labels for the second series.
        series2.DataLabels.ShowValue = true;
        series2.DataLabels.LabelPosition = BarDataLabelPosition.InsideEnd;

        // Access the bar chart view and customize its appearance.
        BarChartView view = (BarChartView)chart.Views[0];
        view.BarDirection = BarChartDirection.Bar;
        view.BarGrouping = BarChartGrouping.Clustered;
        view.GapWidth = 100;
        view.Overlap = -20;

        // Save the presentation to a file or export it.
        // ...
    }
}

Imports DevExpress.Docs.Office
Imports DevExpress.Docs.Presentation
Imports System.Drawing
Imports System.Threading.Tasks

Namespace PresentationApiSample

  Public Class Program
    Public Shared Async Function Main(ByVal args As String()) As Task

      ' Create a presentation and add a blank slide.
      Dim presentation As New Presentation()
      presentation.Slides.Clear()
      Dim slide As New Slide(SlideLayoutType.Blank)
      presentation.Slides.Add(slide)

      ' Insert a chart that fills the slide.
      Dim chart As New Chart()
      chart.Width = presentation.SlideSize.Width
      chart.Height = presentation.SlideSize.Height
      slide.Shapes.Add(chart)

      ' Set text properties common for all chart text elements.
      chart.TextProperties = New TextProperties With {.FontSize = 24, .Bold = True}

      ' Add the first bar series.
      Dim series1 As New BarSeries()
      series1.Arguments = New ChartStringData({"Q1", "Q2", "Q3"})
      series1.Values = New ChartNumericData({120, 95, 140})
      chart.Series.Add(series1)

      ' Configure data labels for the first series.
      series1.DataLabels.ShowValue = True
      series1.DataLabels.LabelPosition = BarDataLabelPosition.OutsideEnd

      ' Add the second bar series.
      Dim series2 As New BarSeries()
      series2.Arguments = New ChartStringData({"Q1", "Q2", "Q3"})
      series2.Values = New ChartNumericData({80, 110, 100})
      chart.Series.Add(series2)

      ' Configure data labels for the second series.
      series2.DataLabels.ShowValue = True
      series2.DataLabels.LabelPosition = BarDataLabelPosition.InsideEnd

      ' Access the bar chart view and customize its appearance.
      Dim view As BarChartView = CType(chart.Views(0), BarChartView)
      view.BarDirection = BarChartDirection.Bar
      view.BarGrouping = BarChartGrouping.Clustered
      view.GapWidth = 100
      view.Overlap = -20

      ' Save the presentation to a file or export it.
      ' ...
    End Function
  End Class
End Namespace