![ExcelEngine Using Predefined Shapes 03.png](images/ExcelEngine_Using_Predefined_Shapes_03.png)
このトピックは、Infragistics Excel Engine を介して定義済みの形状を作成する方法を示します。
トピックは以下のとおりです。
ユーザーの Visual Studio Windows Forms に追加される Infragistics4.Documents.Excel.v24.1 アセンブリ
Click イベントのあるボタン
以下のコード スニペットは、以下のパラメータで定義済みの図形を作成します:
形状: ダイヤモンド
左右反転: True
上下反転: True
塗りつぶし: DeepSkyBlue
アウトライン: 黒
ボタンの Click イベントにコードを貼り付ける必要があります。
形状の各操作についての説明コメントはコード内に示されます。
以下は最終結果のプレビューです。
図 1: サンプル コードから作成された定義済み形状
C# の場合:
// ワークブックとワークシートを使用して、定義済み形状を保持します Infragistics.Documents.Excel.Workbook workbook = new Infragistics.Documents.Excel.Workbook(); Infragistics.Documents.Excel.Worksheet worksheet = workbook.Worksheets.Add("Shapes"); // 定義済みの図形を作成します WorksheetShape shape = WorksheetShape.CreatePredefinedShape(PredefinedShapeType.Diamond); // 形状のテキスト値の設定方法 WorksheetShapeWithText shapeWithText = shape as WorksheetShapeWithText; if (shapeWithText != null) { shapeWithText.Text = new FormattedText("Your Text"); } // 形状を左右反転する方法 shape.FlippedHorizontally = true; // 形状を上下反転する方法 shape.FlippedVertically = true; // 形状を色で塗りつぶす方法 shape.Fill = ShapeFill.FromColor(Color.DeepSkyBlue); // 形状の周りのアウトラインを色つきで作成する方法 shape.Outline = ShapeOutline.FromColor(Color.Black); // 形状の位置を設定する方法 // - 形状の左上隅をセル A0 に設定します shape.TopLeftCornerCell = worksheet.Rows[0].Cells[0]; // - 形状の右下隅をセル D12 に設定します shape.BottomRightCornerCell = worksheet.Rows[11].Cells[4]; // 形状をワークシートに追加します worksheet.Shapes.Add(shape); // ワークブックを保存します。 workbook.Save("your_workbook.xls");
Visual Basic の場合:
' ワークブックとワークシートを使用して、定義済み形状を保持します Dim workbook As New Infragistics.Documents.Excel.Workbook() Dim worksheet As Infragistics.Documents.Excel.Worksheet = workbook.Worksheets.Add("Shapes") ' 定義済みの図形を作成します Dim shape As WorksheetShape = WorksheetShape.CreatePredefinedShape(PredefinedShapeType.Diamond) ' 形状のテキスト値の設定方法 Dim shapeWithText As WorksheetShapeWithText = TryCast(shape, WorksheetShapeWithText) If shapeWithText IsNot Nothing Then shapeWithText.Text = New FormattedText("Your Text") End If ' 形状を左右反転する方法 shape.FlippedHorizontally = True ' 形状を上下反転する方法 shape.FlippedVertically = True ' 形状を色で塗りつぶす方法 shape.Fill = ShapeFill.FromColor(Color.DeepSkyBlue) ' 形状の周りのアウトラインを色つきで作成する方法 shape.Outline = ShapeOutline.FromColor(Color.Black) ' 形状の位置を設定する方法 ' - 形状の上左隅をセル A0 に設定します shape.TopLeftCornerCell = worksheet.Rows(0).Cells(0) ' - 形状の右下隅をセル D12 に設定します shape.BottomRightCornerCell = worksheet.Rows(11).Cells(4) ' 形状をワークシートに追加します worksheet.Shapes.Add(shape) ' ワークブックを保存します workbook.Save("your_workbook.xls")