Set Cell Color

The following example shows you how to set cell's fill color and cell text color. See screenshot.

C# example

using System;
using Independentsoft.Office;
using Independentsoft.Office.Spreadsheet;
using Independentsoft.Office.Spreadsheet.Styles;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            PatternFill pattern1 = new PatternFill();
            pattern1.Type = PatternType.Solid;

            pattern1.ForegroundColor = new ForegroundColor();
            pattern1.ForegroundColor.Color = System.Drawing.Color.Red;

            Fill fill1 = new Fill();
            fill1.Pattern = pattern1;

            Font font1 = new Font();
            font1.Name = "Calibri";
            font1.Size = 11;
            font1.Family = 2;

            font1.Color = new DataBarColor();
            font1.Color.Color = System.Drawing.Color.Yellow;

            CellFormat format1 = new CellFormat();
            format1.Fill = fill1;
            format1.Font = font1;

            Cell a1 = new Cell(100);
            a1.Format = format1;

            Worksheet sheet1 = new Worksheet();
            sheet1["A1"] = a1;

            Workbook book = new Workbook();
            book.Sheets.Add(sheet1);

            book.Save("c:\\test.xlsx");
        }
    }
}

VB example

Imports System
Imports Independentsoft.Office
Imports Independentsoft.Office.Spreadsheet
Imports Independentsoft.Office.Spreadsheet.Styles

Module Module1
    Sub Main(ByVal args As String())

        Dim pattern1 As New PatternFill()
        pattern1.Type = PatternType.Solid

        pattern1.ForegroundColor = New ForegroundColor()
        pattern1.ForegroundColor.Color = System.Drawing.Color.Red

        Dim fill1 As New Fill()
        fill1.Pattern = pattern1

        Dim font1 As New Font()
        font1.Name = "Calibri"
        font1.Size = 11
        font1.Family = 2

        font1.Color = New DataBarColor()
        font1.Color.Color = System.Drawing.Color.Yellow

        Dim format1 As New CellFormat()
        format1.Fill = fill1
        format1.Font = font1

        Dim a1 As New Cell(100)
        a1.Format = format1

        Dim sheet1 As New Worksheet()
        sheet1("A1") = a1

        Dim book As New Workbook()
        book.Sheets.Add(sheet1)

        book.Save("c:\test.xlsx")

    End Sub
End Module