シェイプの属性を変更する

実行時にはマウス操作によって任意のシェイプオブジェクトの属性（サイズ、位置など）を自由に変更することができますが、同等の処理をコーディングによって行う場合には以下のような実装になります。（任意のシェイプオブジェクトを取得する場合はSheetViewクラスのGetShapeメソッド呼び出しを行います）

【実行例】　変更前

初期表示

【実行例】　変更後

変更後イメージ

全てのシェイプオブジェクトクラスはFarPoint.Win.Spread.DrawingSpace.PSShapeクラスから継承しています。
シート上に複数のシェイプオブジェクトが存在する場合でも、選択可能なオブジェクトは常に一つだけとなります。（複数同時選択不可）
シェイプオブジェクトを処理する各関数（AddShapeメソッド：追加、GetShapeメソッド：取得、ClearShapesメソッド：全消去、RemoveShapeメソッド：削除）は SheetViewクラスメンバのみサポートしていますので、実装時には当クラスメンバを利用してください。 FarPoint.Win.Spread.DrawingSpace.SpreadShapesContainerクラス（内部使用クラス）からも同等の機能が提供されていますが、当クラスメンバであるこれらの各メソッドは内部使用を目的としているため、動作についてはサポートしていません。

C#
Visual Basic

 private void Form1_Load(object sender, System.EventArgs e)
 {

   //UniversalNoシェイプを追加します
   FarPoint.Win.Spread.DrawingSpace.UniversalNoShape un = new FarPoint.Win.Spread.DrawingSpace.UniversalNoShape();
   un.Name = "UniversalNo-01";
   un.BackColor = Color.Red;
   un.ShadowColor = Color.Blue;
   un.SetBounds(30, 10, 100, 100);
   fpSpread1.ActiveSheet.AddShape(un);

 }

 private void button1_Click(object sender, System.EventArgs e)
 {

   //UniversalNoシェイプオブジェクトを取得します
   FarPoint.Win.Spread.DrawingSpace.PSShape ps;
   ps = fpSpread1.ActiveSheet.GetShape("UniversalNo-01");

   // 位置／背景色／アウトライン色／ロックを変更します
   ps.Left = 200;
   ps.BackColor = Color.Yellow;
   ps.ShapeOutlineColor = Color.Red;
   ps.Locked = true;

 }

 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

   'UniversalNoシェイプを追加します
   Dim un As New FarPoint.Win.Spread.DrawingSpace.UniversalNoShape
   un.Name = "UniversalNo-01"
   un.BackColor = Color.Red
   un.ShadowColor = Color.Blue
   un.SetBounds(30, 10, 100, 100)
   FpSpread1.ActiveSheet.AddShape(un)

 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

   'UniversalNoシェイプオブジェクトを取得します
   Dim ps As FarPoint.Win.Spread.DrawingSpace.PSShape
   ps = FpSpread1.ActiveSheet.GetShape("UniversalNo-01")

   '位置／背景色／アウトライン色／ロックを変更します
   ps.Left = 200
   ps.BackColor = Color.Yellow
   ps.ShapeOutlineColor = Color.Red
   ps.Locked = True

 End Sub

【実行例】 変更前

【実行例】 変更後

【実行例】　変更前

【実行例】　変更後