// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; // ワークシートの範囲[A7:B7]に図形を作成 GrapeCity.Documents.Excel.Drawing.IShape shape = worksheet.Shapes.AddShape(GrapeCity.Documents.Excel.Drawing.AutoShapeType.Rectangle, 1, 1, 100, 100); // 切り取る範囲は図形を描画した範囲を含む必要がある worksheet.Range["A1:D10"].Cut(worksheet.Range["E1"]); // worksheet.Range["A1:D10"].Cut(worksheet.Range["E1:I9"]); // シートをまたいで図形を切り取る方法 // IWorksheet worksheet2 = workbook.Worksheets.Add() // worksheet.Range["A1:D10"].Cut(worksheet2.Range["E1"]); // worksheet.Range["A1:D10"].Cut(worksheet2.Range["E1:I9"]); // xlsx ファイルに保存 workbook.Save("ShapeCut.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) ' ワークシートの範囲[A7:B7]に図形を作成 Dim shape As IShape = worksheet.Shapes.AddShape(AutoShapeType.Rectangle, 1, 1, 100, 100) ' Range("A1:D10") must contain Range("A7:B7"), cut a new shape to Range("C1:F7") worksheet.Range("A1:D10").Cut(worksheet.Range!E1) ' worksheet.Range("A1:D10").Cut(worksheet.Range("E1:I9")) ' シートをまたいで図形を切り取る方法 ' Dim worksheet2 As IWorksheet = workbook.Worksheets.Add() ' worksheet.Range("A1:D10").Cut(worksheet2.Range!E1) ' worksheet.Range("A1:D10").Cut(worksheet2.Range("E1:I9")) ' xlsx ファイルに保存 workbook.Save("ShapeCut.xlsx")