// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet sheet = workbook.Worksheets[0]; // 矩形の追加 sheet.Shapes.AddShape(AutoShapeType.Rectangle, 20, 10, 100, 100); // 楕円の追加 sheet.Shapes.AddShape(AutoShapeType.Oval, 20, 160, 100, 100); // 三角形の追加 sheet.Shapes.AddShape(AutoShapeType.IsoscelesTriangle, 20, 310, 100, 100); // 禁止マークの追加 sheet.Shapes.AddShape(AutoShapeType.NoSymbol, 20, 460, 100, 100); // スマイルの追加 sheet.Shapes.AddShape(AutoShapeType.SmileyFace, 20, 600, 100, 100); // ハートの追加 sheet.Shapes.AddShape(AutoShapeType.Heart, 170, 10, 100, 100); // 太陽の追加 sheet.Shapes.AddShape(AutoShapeType.Sun, 170, 160, 100, 100); // 右向き矢印ブロックの追加 sheet.Shapes.AddShape(AutoShapeType.RightArrow, 170, 310, 100, 100); // 右カーブ矢印ブロックの追加 sheet.Shapes.AddShape(AutoShapeType.CurvedRightArrow, 170, 460, 100, 100); // ４方向矢印ブロックの追加 sheet.Shapes.AddShape(AutoShapeType.QuadArrow, 170, 600, 100, 100); // 不等号の追加 sheet.Shapes.AddShape(AutoShapeType.MathNotEqual, 320, 10, 100, 100); // 複数書類フローチャートの追加 sheet.Shapes.AddShape(AutoShapeType.FlowchartMultidocument, 320, 160, 100, 100); // ５ポイントの星の追加 sheet.Shapes.AddShape(AutoShapeType.Shape5pointStar, 320, 310, 100, 100); // 上にカーブするリボンバナーの追加 sheet.Shapes.AddShape(AutoShapeType.CurvedUpRibbon, 320, 460, 100, 100); // 楕円型吹き出しの追加 sheet.Shapes.AddShape(AutoShapeType.OvalCallout, 320, 580, 100, 100); // PDF ファイルに保存 workbook.Save("BasicShapes.pdf");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim sheet As IWorksheet = workbook.Worksheets(0) ' 矩形の追加 sheet.Shapes.AddShape(AutoShapeType.Rectangle, 20, 10, 100, 100) ' 楕円の追加 sheet.Shapes.AddShape(AutoShapeType.Oval, 20, 160, 100, 100) ' 三角形の追加 sheet.Shapes.AddShape(AutoShapeType.IsoscelesTriangle, 20, 310, 100, 100) ' 禁止マークの追加 sheet.Shapes.AddShape(AutoShapeType.NoSymbol, 20, 460, 100, 100) ' スマイルの追加 sheet.Shapes.AddShape(AutoShapeType.SmileyFace, 20, 600, 100, 100) ' ハートの追加 sheet.Shapes.AddShape(AutoShapeType.Heart, 170, 10, 100, 100) ' 太陽の追加 sheet.Shapes.AddShape(AutoShapeType.Sun, 170, 160, 100, 100) ' 右向き矢印ブロックの追加 sheet.Shapes.AddShape(AutoShapeType.RightArrow, 170, 310, 100, 100) ' 右カーブ矢印ブロックの追加 sheet.Shapes.AddShape(AutoShapeType.CurvedRightArrow, 170, 460, 100, 100) ' ４方向矢印ブロックの追加 sheet.Shapes.AddShape(AutoShapeType.QuadArrow, 170, 600, 100, 100) ' 不等号の追加 sheet.Shapes.AddShape(AutoShapeType.MathNotEqual, 320, 10, 100, 100) ' 複数書類フローチャートの追加 sheet.Shapes.AddShape(AutoShapeType.FlowchartMultidocument, 320, 160, 100, 100) ' ５ポイントの星の追加 sheet.Shapes.AddShape(AutoShapeType.Shape5pointStar, 320, 310, 100, 100) ' 上にカーブするリボンバナーの追加 sheet.Shapes.AddShape(AutoShapeType.CurvedUpRibbon, 320, 460, 100, 100) ' 楕円型吹き出しの追加 sheet.Shapes.AddShape(AutoShapeType.OvalCallout, 320, 580, 100, 100) ' PDF ファイルに保存 workbook.Save("BasicShapes.pdf")