//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); var worksheet = workbook.Worksheets[0]; worksheet.Range["A1"].Value = "Pattern Name"; worksheet.Range["B1"].Value = "Pattern"; worksheet.Range["C1"].Value = "Pattern Color"; // LightUp worksheet.Range["A2"].Value = "LightUp"; worksheet.Range["B2"].Interior.Pattern = Pattern.LightUp; worksheet.Range["C2"].Interior.Pattern = Pattern.LightUp; worksheet.Range["C2"].Interior.Color = Color.Red; worksheet.Range["C2"].Interior.PatternColor = Color.Green; // LightDown worksheet.Range["A3"].Value = "LightDown"; worksheet.Range["B3"].Interior.Pattern = Pattern.LightDown; worksheet.Range["C3"].Interior.Pattern = Pattern.LightDown; worksheet.Range["C3"].Interior.Color = Color.Red; worksheet.Range["C3"].Interior.PatternColor = Color.Green; // LightHorizontal worksheet.Range["A4"].Value = "LightHorizontal"; worksheet.Range["B4"].Interior.Pattern = Pattern.LightHorizontal; worksheet.Range["C4"].Interior.Pattern = Pattern.LightHorizontal; worksheet.Range["C4"].Interior.Color = Color.Red; worksheet.Range["C4"].Interior.PatternColor = Color.Green; // LightVertical worksheet.Range["A5"].Value = "LightVertical"; worksheet.Range["B5"].Interior.Pattern = Pattern.LightVertical; worksheet.Range["C5"].Interior.Pattern = Pattern.LightVertical; worksheet.Range["C5"].Interior.Color = Color.Red; worksheet.Range["C5"].Interior.PatternColor = Color.Green; // Gray75 worksheet.Range["A6"].Value = "Gray75"; worksheet.Range["B6"].Interior.Pattern = Pattern.Gray75; worksheet.Range["C6"].Interior.Pattern = Pattern.Gray75; worksheet.Range["C6"].Interior.Color = Color.Red; worksheet.Range["C6"].Interior.PatternColor = Color.Green; // Gray50 worksheet.Range["A7"].Value = "Gray50"; worksheet.Range["B7"].Interior.Pattern = Pattern.Gray50; worksheet.Range["C7"].Interior.Pattern = Pattern.Gray50; worksheet.Range["C7"].Interior.Color = Color.Red; worksheet.Range["C7"].Interior.PatternColor = Color.Green; // Gray25 worksheet.Range["A8"].Value = "Gray25"; worksheet.Range["B8"].Interior.Pattern = Pattern.Gray25; worksheet.Range["C8"].Interior.Pattern = Pattern.Gray25; worksheet.Range["C8"].Interior.Color = Color.Red; worksheet.Range["C8"].Interior.PatternColor = Color.Green; // Gray16 worksheet.Range["A9"].Value = "Gray16"; worksheet.Range["B9"].Interior.Pattern = Pattern.Gray16; worksheet.Range["C9"].Interior.Pattern = Pattern.Gray16; worksheet.Range["C9"].Interior.Color = Color.Red; worksheet.Range["C9"].Interior.PatternColor = Color.Green; // Gray8 worksheet.Range["A10"].Value = "Gray8"; worksheet.Range["B10"].Interior.Pattern = Pattern.Gray8; worksheet.Range["C10"].Interior.Pattern = Pattern.Gray8; worksheet.Range["C10"].Interior.Color = Color.Red; worksheet.Range["C10"].Interior.PatternColor = Color.Green; // Horizontal worksheet.Range["A11"].Value = "Horizontal"; worksheet.Range["B11"].Interior.Pattern = Pattern.Horizontal; worksheet.Range["C11"].Interior.Pattern = Pattern.Horizontal; worksheet.Range["C11"].Interior.Color = Color.Red; worksheet.Range["C11"].Interior.PatternColor = Color.Green; // Vertical worksheet.Range["A12"].Value = "Vertical"; worksheet.Range["B12"].Interior.Pattern = Pattern.Vertical; worksheet.Range["C12"].Interior.Pattern = Pattern.Vertical; worksheet.Range["C12"].Interior.Color = Color.Red; worksheet.Range["C12"].Interior.PatternColor = Color.Green; // Down worksheet.Range["A13"].Value = "Down"; worksheet.Range["B13"].Interior.Pattern = Pattern.Down; worksheet.Range["C13"].Interior.Pattern = Pattern.Down; worksheet.Range["C13"].Interior.Color = Color.Red; worksheet.Range["C13"].Interior.PatternColor = Color.Green; // Up worksheet.Range["A14"].Value = "Up"; worksheet.Range["B14"].Interior.Pattern = Pattern.Up; worksheet.Range["C14"].Interior.Pattern = Pattern.Up; worksheet.Range["C14"].Interior.Color = Color.Red; worksheet.Range["C14"].Interior.PatternColor = Color.Green; // Checker worksheet.Range["A15"].Value = "Checker"; worksheet.Range["B15"].Interior.Pattern = Pattern.Checker; worksheet.Range["C15"].Interior.Pattern = Pattern.Checker; worksheet.Range["C15"].Interior.Color = Color.Red; worksheet.Range["C15"].Interior.PatternColor = Color.Green; // SemiGray75 worksheet.Range["A16"].Value = "SemiGray75"; worksheet.Range["B16"].Interior.Pattern = Pattern.SemiGray75; worksheet.Range["C16"].Interior.Pattern = Pattern.SemiGray75; worksheet.Range["C16"].Interior.Color = Color.Red; worksheet.Range["C16"].Interior.PatternColor = Color.Green; // Grid worksheet.Range["A17"].Value = "Grid"; worksheet.Range["B17"].Interior.Pattern = Pattern.Grid; worksheet.Range["C17"].Interior.Pattern = Pattern.Grid; worksheet.Range["C17"].Interior.Color = Color.Red; worksheet.Range["C17"].Interior.PatternColor = Color.Green; // CrissCross worksheet.Range["A18"].Value = "CrissCross"; worksheet.Range["B18"].Interior.Pattern = Pattern.CrissCross; worksheet.Range["C18"].Interior.Pattern = Pattern.CrissCross; worksheet.Range["C18"].Interior.Color = Color.Red; worksheet.Range["C18"].Interior.PatternColor = Color.Green; worksheet.Range["A1"].ColumnWidth = 15; worksheet.Range["B1:C1"].ColumnWidth = 20.0; var rangeA1A18 = worksheet.Range["A1:A18"]; rangeA1A18.RowHeight = 35.0; var styleA1A18 = rangeA1A18.Style; styleA1A18.VerticalAlignment = VerticalAlignment.Center; styleA1A18.Font.Size = 16.0; // Save to a pdf file workbook.Save("CellPatternFillPDF.pdf");
' Create a new Workbook Dim workbook As New Workbook Dim worksheet = workbook.Worksheets(0) worksheet.Range("A1").Value = "Pattern Name" worksheet.Range("B1").Value = "Pattern" worksheet.Range("C1").Value = "Pattern Color" ' LightUp worksheet.Range("A2").Value = "LightUp" worksheet.Range("B2").Interior.Pattern = Pattern.LightUp worksheet.Range("C2").Interior.Pattern = Pattern.LightUp worksheet.Range("C2").Interior.Color = Color.Red worksheet.Range("C2").Interior.PatternColor = Color.Green ' LightDown worksheet.Range("A3").Value = "LightDown" worksheet.Range("B3").Interior.Pattern = Pattern.LightDown worksheet.Range("C3").Interior.Pattern = Pattern.LightDown worksheet.Range("C3").Interior.Color = Color.Red worksheet.Range("C3").Interior.PatternColor = Color.Green ' LightHorizontal worksheet.Range("A4").Value = "LightHorizontal" worksheet.Range("B4").Interior.Pattern = Pattern.LightHorizontal worksheet.Range("C4").Interior.Pattern = Pattern.LightHorizontal worksheet.Range("C4").Interior.Color = Color.Red worksheet.Range("C4").Interior.PatternColor = Color.Green ' LightVertical worksheet.Range("A5").Value = "LightVertical" worksheet.Range("B5").Interior.Pattern = Pattern.LightVertical worksheet.Range("C5").Interior.Pattern = Pattern.LightVertical worksheet.Range("C5").Interior.Color = Color.Red worksheet.Range("C5").Interior.PatternColor = Color.Green ' Gray75 worksheet.Range("A6").Value = "Gray75" worksheet.Range("B6").Interior.Pattern = Pattern.Gray75 worksheet.Range("C6").Interior.Pattern = Pattern.Gray75 worksheet.Range("C6").Interior.Color = Color.Red worksheet.Range("C6").Interior.PatternColor = Color.Green ' Gray50 worksheet.Range("A7").Value = "Gray50" worksheet.Range("B7").Interior.Pattern = Pattern.Gray50 worksheet.Range("C7").Interior.Pattern = Pattern.Gray50 worksheet.Range("C7").Interior.Color = Color.Red worksheet.Range("C7").Interior.PatternColor = Color.Green ' Gray25 worksheet.Range("A8").Value = "Gray25" worksheet.Range("B8").Interior.Pattern = Pattern.Gray25 worksheet.Range("C8").Interior.Pattern = Pattern.Gray25 worksheet.Range("C8").Interior.Color = Color.Red worksheet.Range("C8").Interior.PatternColor = Color.Green ' Gray16 worksheet.Range("A9").Value = "Gray16" worksheet.Range("B9").Interior.Pattern = Pattern.Gray16 worksheet.Range("C9").Interior.Pattern = Pattern.Gray16 worksheet.Range("C9").Interior.Color = Color.Red worksheet.Range("C9").Interior.PatternColor = Color.Green ' Gray8 worksheet.Range("A10").Value = "Gray8" worksheet.Range("B10").Interior.Pattern = Pattern.Gray8 worksheet.Range("C10").Interior.Pattern = Pattern.Gray8 worksheet.Range("C10").Interior.Color = Color.Red worksheet.Range("C10").Interior.PatternColor = Color.Green ' Horizontal worksheet.Range("A11").Value = "Horizontal" worksheet.Range("B11").Interior.Pattern = Pattern.Horizontal worksheet.Range("C11").Interior.Pattern = Pattern.Horizontal worksheet.Range("C11").Interior.Color = Color.Red worksheet.Range("C11").Interior.PatternColor = Color.Green ' Vertical worksheet.Range("A12").Value = "Vertical" worksheet.Range("B12").Interior.Pattern = Pattern.Vertical worksheet.Range("C12").Interior.Pattern = Pattern.Vertical worksheet.Range("C12").Interior.Color = Color.Red worksheet.Range("C12").Interior.PatternColor = Color.Green ' Down worksheet.Range("A13").Value = "Down" worksheet.Range("B13").Interior.Pattern = Pattern.Down worksheet.Range("C13").Interior.Pattern = Pattern.Down worksheet.Range("C13").Interior.Color = Color.Red worksheet.Range("C13").Interior.PatternColor = Color.Green ' Up worksheet.Range("A14").Value = "Up" worksheet.Range("B14").Interior.Pattern = Pattern.Up worksheet.Range("C14").Interior.Pattern = Pattern.Up worksheet.Range("C14").Interior.Color = Color.Red worksheet.Range("C14").Interior.PatternColor = Color.Green ' Checker worksheet.Range("A15").Value = "Checker" worksheet.Range("B15").Interior.Pattern = Pattern.Checker worksheet.Range("C15").Interior.Pattern = Pattern.Checker worksheet.Range("C15").Interior.Color = Color.Red worksheet.Range("C15").Interior.PatternColor = Color.Green ' SemiGray75 worksheet.Range("A16").Value = "SemiGray75" worksheet.Range("B16").Interior.Pattern = Pattern.SemiGray75 worksheet.Range("C16").Interior.Pattern = Pattern.SemiGray75 worksheet.Range("C16").Interior.Color = Color.Red worksheet.Range("C16").Interior.PatternColor = Color.Green ' Grid worksheet.Range("A17").Value = "Grid" worksheet.Range("B17").Interior.Pattern = Pattern.Grid worksheet.Range("C17").Interior.Pattern = Pattern.Grid worksheet.Range("C17").Interior.Color = Color.Red worksheet.Range("C17").Interior.PatternColor = Color.Green ' CrissCross worksheet.Range("A18").Value = "CrissCross" worksheet.Range("B18").Interior.Pattern = Pattern.CrissCross worksheet.Range("C18").Interior.Pattern = Pattern.CrissCross worksheet.Range("C18").Interior.Color = Color.Red worksheet.Range("C18").Interior.PatternColor = Color.Green worksheet.Range("A1").ColumnWidth = 15 worksheet.Range("A1").ColumnWidth = 15 worksheet.Range("B1:C1").ColumnWidth = 20.0 Dim rangeA1A18 = worksheet.Range("A1:A18") rangeA1A18.RowHeight = 35.0 Dim styleA1A18 = rangeA1A18.Style styleA1A18.VerticalAlignment = VerticalAlignment.Center styleA1A18.Font.Size = 16.0 ' save to a pdf file workbook.Save("CellPatternFillPDF.pdf")