クリックしたセルにシェイプを追加する方法 – MESCIUS ナレッジベース

作成日: 2022/01/21 最終更新日: 2022/02/24

文書種別

使用方法

詳細

シェイプの追加をコードにより行う場合には、AddShapeメソッドを使用します。
ここではCellClickイベントによりクリックセルにシェイプを追加する例を紹介します。
◎サンプルコード(VB)

　　Private Sub FpSpread1_CellClick(sender As Object, e As CellClickEventArgs) Handles FpSpread1.CellClick
　　　　Dim shape As New FarPoint.Win.Spread.DrawingSpace.RoundedRectangleShape
　　　　shape.Text = "クリック"
　　　　shape.CanRenderText = True
　　　　shape.BackColor = Color.Yellow
　　　　shape.Width = 60
　　　　shape.Height = 18
　　　　FpSpread1.ActiveSheet.AddShape(shape, e.Row, e.Column)
　　End Sub

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

　　　private void fpSpread1_CellClick(object sender, FarPoint.Win.Spread.CellClickEventArgs e)
　　　　{
　　　　　　FarPoint.Win.Spread.DrawingSpace.RoundedRectangleShape shape = new FarPoint.Win.Spread.DrawingSpace.RoundedRectangleShape();
　　　　　　shape.Text = "クリック";
　　　　　　shape.CanRenderText = true;
　　　　　　shape.BackColor = Color.Yellow;
　　　　　　shape.Width = 60;
　　　　　　shape.Height = 18;
　　　　　　fpSpread1.ActiveSheet.AddShape(shape, e.Row , e.Column);
　　　　}