全てのテキストが入るようにセルの高さを自動調整したい – MESCIUS ナレッジベース

作成日: 2017/03/28 最終更新日: 2017/03/28

文書種別

使用方法

詳細

セルのテキストの長さにあわせて、セルの高さを自動調節するプロパティやメソッドは用意されておりませんが、セルの編集が終了するタイミングでGetPreferredRowHeightメソッドを使用し、シートの指定した行にある最も高さのあるテキストの高さに設定する方法が考えられます。

◎サンプルコード(VB)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　' テキスト型セルを設定します
　　Dim tcell As New FarPoint.Win.Spread.CellType.TextCellType()
　　tcell.WordWrap = True
　　FpSpread1.ActiveSheet.Columns(1).CellType = tcell
End Sub

Private Sub FpSpread1_EditModeOff(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOff
　　' 最も高さのあるテキストの高さに設定します
　　FpSpread1.ActiveSheet.Rows(0).Height = FpSpread1.ActiveSheet.GetPreferredRowHeight(0)
End Sub

◎サンプルコード(C#)

private void Form1_Load(object sender, EventArgs e)
{
　　// テキスト型セルを設定します
　　FarPoint.Win.Spread.CellType.TextCellType tcell = new FarPoint.Win.Spread.CellType.TextCellType();
　　tcell.WordWrap = true;
　　fpSpread1.ActiveSheet.Columns[1].CellType = tcell;
}

private void fpSpread1_EditModeOff(object sender, EventArgs e)
{
　　// 最も高さのあるテキストの高さに設定します
　　fpSpread1.ActiveSheet.Rows[0].Height = fpSpread1.ActiveSheet.GetPreferredRowHeight(0);
}

旧文書番号

40196