// 新規ワークブックの作成 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"].Copy(worksheet.Range["E1"]); // worksheet.Range["A1:D10"].Copy(worksheet.Range["E1:I9"]); // シートをまたいで図形をコピーする方法 // IWorksheet worksheet2 = workbook.Worksheets.Add() // worksheet.Range["A1:D10"].Copy(worksheet2.Range["E1"]); // worksheet.Range["A1:D10"].Copy(worksheet2.Range["E1:I9"]); // xlsx ファイルに保存 workbook.Save("ShapeCopy.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) ' 切り取る範囲は図形を描画した範囲を含む必要がある worksheet.Range("A1:D10").Copy(worksheet.Range!E1) ' worksheet.Range("A1:D10").Copy(worksheet.Range("E1:I9")) ' シートをまたいで図形をコピーする方法 ' Dim worksheet2 As IWorksheet = workbook.Worksheets.Add() ' worksheet.Range("A1:D10").Copy(worksheet2.Range!E1) ' worksheet.Range("A1:D10").Copy(worksheet2.Range("E1:I9")) ' xlsx ファイルに保存 workbook.Save("ShapeCopy.xlsx")