// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; System.IO.Stream stream = this.GetResourceStream("logo.png"); // ワークシートに図形を作成。画像の範囲["A2:I6"] GrapeCity.Documents.Excel.Drawing.IShape picture = worksheet.Shapes.AddPicture(stream, GrapeCity.Documents.Excel.Drawing.ImageType.PNG, 20, 20, 333, 79); // 範囲["A2:I6"]は画像の範囲を含む必要がある。範囲["J2:R6"]に新しい画像をコピー worksheet.Range["A2:I6"].Copy(worksheet.Range["J2"]); //worksheet.Range["A2:I6"].Copy(worksheet.Range["J2:R6"]); // シートをまたいで画像をコピーする方法 // IWorksheet worksheet2 = workbook.Worksheets.Add() // worksheet.Range["A2:I6"].Copy(worksheet2.Range["J2"]); // worksheet.Range["A2:I6"].Copy(worksheet2.Range["J2:R6"]); // xlsx ファイルに保存 workbook.Save("PictureCopy.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) Dim stream As IO.Stream = GetResourceStream("logo.png") ' ワークシートに図形を作成。画像の範囲["A2:I6"] Dim picture As IShape = worksheet.Shapes.AddPicture(stream, ImageType.PNG, 20, 20, 333, 79) ' 範囲["A2:I6"]は画像の範囲を含む必要がある。範囲["J2:R6"]に新しい画像をコピー worksheet.Range("A2:I6").Copy(worksheet.Range!J2) ' worksheet.Range("A2:I6").Copy(worksheet.Range("J2:R6")) ' シートをまたいで画像をコピーする方法 ' Dim worksheet2 As IWorksheet = workbook.Worksheets.Add() ' worksheet.Range("A2:I6").Copy(worksheet2.Range!J2) ' worksheet.Range("A2:I6").Copy(worksheet2.Range("J2:R6")) ' xlsx ファイルに保存 workbook.Save("PictureCopy.xlsx")