リッチテキストを設定する

RichTextクラスを使用してセルにリッチテキストを設定することが可能です。RichTextオブジェクトはIRangeインターフェースのValueプロパティに割り当て、従来のリッチテキスト型セルを使用せずに実現でできます。なお、FpSpread.Features.RichTextプロパティをtrueに設定することで、リッチテキスト書式を持つExcelをインポート／エクスポートできます。

【実行例】

C#
Visual Basic

private void Form1_Load(object sender, System.EventArgs e)
 {
  fpSpread1.ActiveSheet.Columns[0].Width = 300;
  fpSpread1.ActiveSheet.Rows[0].Height = 50;
  // RichTextオブジェクトを初期化します
  GrapeCity.Spreadsheet.RichText richText = new GrapeCity.Spreadsheet.RichText("This is a rich text");
  // フォントスタイルを定義
  GrapeCity.Spreadsheet.Font font = GrapeCity.Spreadsheet.Font.Empty;
  GrapeCity.Spreadsheet.Font font2 = GrapeCity.Spreadsheet.Font.Empty;
  GrapeCity.Spreadsheet.Font font3 = GrapeCity.Spreadsheet.Font.Empty;
  GrapeCity.Spreadsheet.Font font4 = GrapeCity.Spreadsheet.Font.Empty;
  GrapeCity.Spreadsheet.Font fontAll = GrapeCity.Spreadsheet.Font.Empty;
  // フォントスタイルを設定します
  font.VerticalAlign = GrapeCity.Spreadsheet.VerticalTextAlignment.Subscript;
  font2.Color = GrapeCity.Spreadsheet.Color.FromKnownColor(GrapeCity.Core.KnownColor.Violet);
  font3.Color = GrapeCity.Spreadsheet.Color.FromKnownColor(GrapeCity.Core.KnownColor.Green);
  font4.Italic = true;
  fontAll.Bold = true;
  fontAll.Size = 24;
  // RichTextインスタンスにスタイルを適用します
  richText.Format(8, 1, font);
  richText.Format(15, 4, font2);
  richText.Format(0, 4, font3);
  richText.Format(10, 4, font4);
  richText.Format(fontAll);
  // セルにリッチテキストを設定します
  fpSpread1.AsWorkbook().ActiveSheet.Cells["A1"].Value = richText;
}
private void button1_Click(object sender, EventArgs e)
{
  // RichTextプロパティを有効にします
  fpSpread1.Features.RichText = true;
  // Excelのインポート／エクスポートします
  fpSpread1.OpenExcel("..\\..\\RichText.xlsx");
  //fpSpread1.SaveExcel("..\\..\\RichText.xlsx", FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat);

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  FpSpread1.ActiveSheet.Columns(0).Width = 300
  FpSpread1.ActiveSheet.Rows(0).Height = 50
  ' RichTextオブジェクトを初期化します
  Dim RichText As New GrapeCity.Spreadsheet.RichText("This is a rich text")
  ' フォントスタイルを定義します
  Dim font As GrapeCity.Spreadsheet.Font = GrapeCity.Spreadsheet.Font.Empty
  Dim font2 As GrapeCity.Spreadsheet.Font = GrapeCity.Spreadsheet.Font.Empty
  Dim font3 As GrapeCity.Spreadsheet.Font = GrapeCity.Spreadsheet.Font.Empty
  Dim font4 As GrapeCity.Spreadsheet.Font = GrapeCity.Spreadsheet.Font.Empty
  Dim fontAll As GrapeCity.Spreadsheet.Font = GrapeCity.Spreadsheet.Font.Empty
  ' フォントスタイルを設定します
  font.VerticalAlign = GrapeCity.Spreadsheet.VerticalTextAlignment.Subscript
  font2.Color = GrapeCity.Spreadsheet.Color.FromKnownColor(GrapeCity.Core.KnownColor.Violet)
  font3.Color = GrapeCity.Spreadsheet.Color.FromKnownColor(GrapeCity.Core.KnownColor.Green)
  font4.Italic = True
  fontAll.Bold = True
  fontAll.Size = 24
  ' RichTextインスタンスにスタイルを適用します
  RichText.Format(8, 1, font)
  RichText.Format(15, 4, font2)
  RichText.Format(0, 4, font3)
  RichText.Format(10, 4, font4)
  RichText.Format(fontAll)
  ' セルにリッチテキストを設定します
  FpSpread1.AsWorkbook().ActiveSheet.Cells("A1").Value = RichText
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  ' RichTextプロパティを有効にします
  FpSpread1.Features.RichText = True
  ' Excelのインポート/エクスポートします
  FpSpread1.OpenExcel("..\\..\\RichText.xlsx")
  'FpSpread1.SaveExcel("..\\..\\RichText.xlsx", FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat)
End Sub