作成日: 2017/09/22 最終更新日: 2017/12/22
文書種別
不具合
状況
修正済み
詳細
本件、以下の手順で再現できます。
【実行手順】
1. SPREADを配置します
2. 以下のサンプルコードをコピーして実行します
3. マウスポインタをセルノートインジケータに移動します。
--- セルノートにフォント設定が反映されていない
【サンプルコード】
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
FpSpread1.TextTipAppearance.Font = New Font("Meiryo UI", 14.0F)
FpSpread1.ActiveSheet.SetNote(1, 1, "セルノート文字列")
FpSpread1.ActiveSheet.Cells(1, 1).NoteStyle = FarPoint.Win.Spread.NoteStyle.PopupNote
End Sub
【実行手順】
1. SPREADを配置します
2. 以下のサンプルコードをコピーして実行します
3. マウスポインタをセルノートインジケータに移動します。
--- セルノートにフォント設定が反映されていない
【サンプルコード】
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
FpSpread1.TextTipAppearance.Font = New Font("Meiryo UI", 14.0F)
FpSpread1.ActiveSheet.SetNote(1, 1, "セルノート文字列")
FpSpread1.ActiveSheet.Cells(1, 1).NoteStyle = FarPoint.Win.Spread.NoteStyle.PopupNote
End Sub
回避方法
Service Pack 2（v10.0.4006.2012）で修正済み。
Service Pack 2より前のバージョンでは次の回避方法が有効です。
------------------------------------------
以下のように、SetStickyNoteStyleInfoメソッドを使用する方法があります。ただし、この方法を適用する上で留意点があります。
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'FpSpread1.TextTipAppearance.Font = New Font("Meiryo UI", 14.0F)
FpSpread1.ActiveSheet.SetNote(1, 1, "セルノート文字列")
FpSpread1.ActiveSheet.Cells(1, 1).NoteStyle = FarPoint.Win.Spread.NoteStyle.PopupNote
Dim nsinfo As New FarPoint.Win.Spread.DrawingSpace.StickyNoteStyleInfo()
nsinfo.Font = New Font("Meiryo UI", 14.0F)
FpSpread1.ActiveSheet.SetStickyNoteStyleInfo(1, 1, nsinfo)
End Sub
◇留意点
- 現時点では、SetStickyNoteStyleInfoメソッドがPopupNoteに有効となりますが、これは本来の動作とは異なります。本不具合の修正以降は本回避方法を除去し、本来のTextTipAppearance.Fontによる設定に差し替える必要があります。
- SetStickyNoteStyleInfoメソッドによるPopupNoteの設定は、以下の属性に限り使用可能です。
- Font
- BackColor
- ForeColor
Service Pack 2より前のバージョンでは次の回避方法が有効です。
------------------------------------------
以下のように、SetStickyNoteStyleInfoメソッドを使用する方法があります。ただし、この方法を適用する上で留意点があります。
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'FpSpread1.TextTipAppearance.Font = New Font("Meiryo UI", 14.0F)
FpSpread1.ActiveSheet.SetNote(1, 1, "セルノート文字列")
FpSpread1.ActiveSheet.Cells(1, 1).NoteStyle = FarPoint.Win.Spread.NoteStyle.PopupNote
Dim nsinfo As New FarPoint.Win.Spread.DrawingSpace.StickyNoteStyleInfo()
nsinfo.Font = New Font("Meiryo UI", 14.0F)
FpSpread1.ActiveSheet.SetStickyNoteStyleInfo(1, 1, nsinfo)
End Sub
◇留意点
- 現時点では、SetStickyNoteStyleInfoメソッドがPopupNoteに有効となりますが、これは本来の動作とは異なります。本不具合の修正以降は本回避方法を除去し、本来のTextTipAppearance.Fontによる設定に差し替える必要があります。
- SetStickyNoteStyleInfoメソッドによるPopupNoteの設定は、以下の属性に限り使用可能です。
- Font
- BackColor
- ForeColor
旧文書番号
41363