Dim workbook As New Infragistics.Documents.Excel.Workbook() Dim worksheet As Infragistics.Documents.Excel.Worksheet = _ workbook.Worksheets.Add("Sheet1") ' 列ヘッダをいくつか作成します。 worksheet.Rows.Item(1).Cells.Item(1).Value = "Morning" worksheet.Rows.Item(1).Cells.Item(2).Value = "Afternoon" worksheet.Rows.Item(1).Cells.Item(3).Value = "Evening" ' ヘッダが列ヘッダとなるマージされた領域を作成します。 Dim mergedRegion1 As Infragistics.Documents.Excel.WorksheetMergedCellsRegion = _ worksheet.MergedCellsRegions.Add(0, 1, 0, 3) ' マージされた領域の値を設定します。 mergedRegion1.Value = "Day 1" ' マージされた領域に単色の背景色を指定します。 mergedRegion1.CellFormat.FillPattern = _ Infragistics.Documents.Excel.FillPatternStyle.Solid mergedRegion1.CellFormat.FillPatternForegroundColor = Color.SkyBlue ' マージされた領域の中央のセルの配置を設定します。 ' セルとセルのマージされた領域がセル フォーマットを共有したために、これはマージされた ' 領域のフォーマットを最終的に設定することになります。 worksheet.Rows.Item(0).Cells.Item(2).CellFormat.Alignment = _ Infragistics.Documents.Excel.HorizontalCellAlignment.Center