作成日: 2019/12/24 最終更新日: 2020/04/30
文書種別
不具合
状況
修正済み
詳細
新しいスタイルシステムでCells.Borders.Colorプロパティを使用してシートおよびヘッダ全体の罫線の色を変更すると、その後でCellsプロパティに対してインデックスを設定して特定セルの右側の色を変更したとしても、罫線に正しく反映されません。
新規作成したプロジェクトのForm1にFpSpreadを配置し、サンプルコードを張り付け、実行すると後から設定した罫線の色が有効になりません。
■サンプルコード（VB.NET）
新規作成したプロジェクトのForm1にFpSpreadを配置し、サンプルコードを張り付け、実行すると後から設定した罫線の色が有効になりません。
■サンプルコード（VB.NET）
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FpSpread1.AsWorkbook().ActiveSheet.ColumnHeader.Cells.Borders.Color = GrapeCity.Spreadsheet.Color.FromArgb(230, 230, 230)
FpSpread1.AsWorkbook().ActiveSheet.Cells.Borders.Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 255, 255)
FpSpread1.AsWorkbook().ActiveSheet.ColumnHeader.Cells(0, 0).Borders(GrapeCity.Spreadsheet.BordersIndex.Right).Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 0, 0)
FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 0).Borders(GrapeCity.Spreadsheet.BordersIndex.Right).Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 0, 0)
End Sub
FpSpread1.AsWorkbook().ActiveSheet.ColumnHeader.Cells.Borders.Color = GrapeCity.Spreadsheet.Color.FromArgb(230, 230, 230)
FpSpread1.AsWorkbook().ActiveSheet.Cells.Borders.Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 255, 255)
FpSpread1.AsWorkbook().ActiveSheet.ColumnHeader.Cells(0, 0).Borders(GrapeCity.Spreadsheet.BordersIndex.Right).Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 0, 0)
FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 0).Borders(GrapeCity.Spreadsheet.BordersIndex.Right).Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 0, 0)
End Sub
回避方法
Service Pack 4（v12.0.4505.2012 ）で修正済み。
Service Pack を適用せずに対処する方法としては、右隣のセル上でLeftを指定した状態で罫線の色を指定します。
■サンプルコード（VB.NET）
Service Pack を適用せずに対処する方法としては、右隣のセル上でLeftを指定した状態で罫線の色を指定します。
■サンプルコード（VB.NET）
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FpSpread1.AsWorkbook().ActiveSheet.ColumnHeader.Cells.Borders.Color = GrapeCity.Spreadsheet.Color.FromArgb(230, 230, 230)
FpSpread1.AsWorkbook().ActiveSheet.Cells.Borders.Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 255, 255)
FpSpread1.AsWorkbook().ActiveSheet.ColumnHeader.Cells(0, 1).Borders(GrapeCity.Spreadsheet.BordersIndex.Left).Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 0, 0)
FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 1).Borders(GrapeCity.Spreadsheet.BordersIndex.Left).Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 0, 0)
End Sub
FpSpread1.AsWorkbook().ActiveSheet.ColumnHeader.Cells.Borders.Color = GrapeCity.Spreadsheet.Color.FromArgb(230, 230, 230)
FpSpread1.AsWorkbook().ActiveSheet.Cells.Borders.Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 255, 255)
FpSpread1.AsWorkbook().ActiveSheet.ColumnHeader.Cells(0, 1).Borders(GrapeCity.Spreadsheet.BordersIndex.Left).Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 0, 0)
FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 1).Borders(GrapeCity.Spreadsheet.BordersIndex.Left).Color = GrapeCity.Spreadsheet.Color.FromArgb(255, 0, 0)
End Sub
旧文書番号
84783