Class Floor

public class Floor : Area

//Создание экземпляра класса License
Aspose.Cells.License license = new Aspose.Cells.License();

//Передача только имени файла лицензии, встроенного в сборку
license.SetLicense("Aspose.Cells.lic");

//Создание экземпляра объекта workbook
Workbook workbook = new Workbook();

//Получение коллекции ячеек
Cells cells = workbook.Worksheets[0].Cells;

//Заполнение ячеек значениями
cells["A1"].PutValue(1);

cells["A2"].PutValue(2);

cells["A3"].PutValue(3);

//Получение коллекции графиков
ChartCollection charts = workbook.Worksheets[0].Charts;

//Добавление нового графика 
int index = charts.Add(ChartType.Column3DStacked, 5, 0, 15, 5);

//Получение только что добавленного графика
Chart chart = charts[index];

//Установка серий графиков
chart.NSeries.Add("A1:A3", true);

//Отображение меток данных
chart.NSeries[0].DataLabels.ShowValue = true;

//Получение основания графика
Floor floor = chart.Floor;

//Установка цвета границы основания в красный
floor.Border.Color = System.Drawing.Color.Red;

//Установка формата заливки
floor.FillFormat.SetPresetColorGradient(GradientPresetType.CalmWater, GradientStyleType.DiagonalDown, 2); 

//Сохранение файла
workbook.Save(@"dest.xls");

'Создание экземпляра класса License
Dim license As New Aspose.Cells.License()

'Передача только имени файла лицензии, встроенного в сборку
license.SetLicense("Aspose.Cells.lic")

'Создание экземпляра объекта workbook
Dim workbook As Workbook = New Workbook()

'Получение коллекции ячеек
Dim cells As Cells = workbook.Worksheets(0).Cells

'Заполнение ячеек значениями
cells("A1").PutValue(1)

cells("A2").PutValue(2)

cells("A3").PutValue(3)

'Получение коллекции графиков
Dim charts As ChartCollection = workbook.Worksheets(0).Charts

'Добавление нового графика 
Dim index As Integer = charts.Add(ChartType.Column3DStacked, 5, 0, 15, 5)

'Получение только что добавленного графика
Dim chart As Chart = charts(index)

'Установка серий графиков
chart.NSeries.Add("A1:A3", True)

'Отображение меток данных
chart.NSeries(0).DataLabels.ShowValue = True

'Получение основания графика
Dim floor As Floor = chart.Floor

'Установка цвета границы основания в красный
floor.Border.Color = System.Drawing.Color.Red

'Установка формата заливки
floor.FillFormat.SetPresetColorGradient(GradientPresetType.CalmWater, GradientStyleType.DiagonalDown, 2)

'Сохранение файла
workbook.Save("dest.xls")

protected ShapePropertyCollection m_SpPr

public Line Border { get; set; }