作成日: 2018/10/23 最終更新日: 2018/12/18
文書種別
不具合
状況
修正済み
詳細
ResetForeColorメソッドを呼び出すと文字色以外のフォント情報もリセットされます。
■サンプルコード（VB.NET）
【再現手順】
１．サンプルをデバッグ実行する。
２．任意のセルを選択し「Button1」を押下する。
３．２のセルを選択し、「Button2」を押下する。
４．再度「Button1」を押下する。
■サンプルコード（VB.NET）
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = FpSpread1.ProductVersion
With FpSpread1_Sheet1
For i As Integer = 0 To .RowCount - 1
For j As Integer = 0 To .ColumnCount - 1
.Cells(i, j).Text = i.ToString & j.ToString
Next
Next
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
With FpSpread1_Sheet1
.ActiveCell.ForeColor = Color.Red
End With
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
With FpSpread1_Sheet1
.ActiveCell.ResetForeColor()
End With
End Sub
Me.Text = FpSpread1.ProductVersion
With FpSpread1_Sheet1
For i As Integer = 0 To .RowCount - 1
For j As Integer = 0 To .ColumnCount - 1
.Cells(i, j).Text = i.ToString & j.ToString
Next
Next
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
With FpSpread1_Sheet1
.ActiveCell.ForeColor = Color.Red
End With
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
With FpSpread1_Sheet1
.ActiveCell.ResetForeColor()
End With
End Sub
【再現手順】
１．サンプルをデバッグ実行する。
２．任意のセルを選択し「Button1」を押下する。
３．２のセルを選択し、「Button2」を押下する。
４．再度「Button1」を押下する。
回避方法
Service Pack 2（v11.0.4503.2012）で修正済み。
Service Pack 2を適用せずに対処する方法としては、列のフォント情報をもとにして、ResetForeColorメソッド後にフォントを再設定します。
■サンプルコード（VB.NET）
Service Pack 2を適用せずに対処する方法としては、列のフォント情報をもとにして、ResetForeColorメソッド後にフォントを再設定します。
■サンプルコード（VB.NET）
With FpSpread1_Sheet1
.ActiveCell.ResetForeColor()
' 列に対するフォント情報をもとにFontオブジェクトを作成
Dim tempFont As New Font(FpSpread1_Sheet1.Columns(.ActiveCell.Column.Index).Font, FpSpread1_Sheet1.Columns(.ActiveCell.Column.Index).Font.Style)
' 作成したFontオブジェクトをセルに設定
.ActiveCell.Font = tempFont
End With
.ActiveCell.ResetForeColor()
' 列に対するフォント情報をもとにFontオブジェクトを作成
Dim tempFont As New Font(FpSpread1_Sheet1.Columns(.ActiveCell.Column.Index).Font, FpSpread1_Sheet1.Columns(.ActiveCell.Column.Index).Font.Style)
' 作成したFontオブジェクトをセルに設定
.ActiveCell.Font = tempFont
End With
旧文書番号
83327