// PDF ファイルストリームの作成 using FileStream outputStream = new FileStream("SetImageQuality.pdf", FileMode.Create); // 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; System.IO.Stream stream = this.GetResourceStream("C1Weather.png"); GrapeCity.Documents.Excel.Drawing.IShape picture = worksheet.Shapes.AddPictureInPixel(stream, GrapeCity.Documents.Excel.Drawing.ImageType.PNG, 0, 0, 600, 310); // PdfSaveOptionsのインスタンスを作成 PdfSaveOptions pdfSaveOptions = new PdfSaveOptions(); // 画像品質を100%(最高品質)に設定 pdfSaveOptions.ImageQuality = 100; // ワークブックをPDFとして保存 workbook.Save(outputStream, pdfSaveOptions);
' PDF ファイルストリームの作成 Dim outputStream = File.Create("SetImageQuality.pdf") ' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) Dim stream As Stream = GetResourceStream("C1Weather.png") Dim picture As IShape = worksheet.Shapes.AddPictureInPixel(stream, ImageType.PNG, 0, 0, 600, 310) ' PdfSaveOptionsのインスタンスを作成 ' 画像品質を100%(最高品質)に設定 Dim pdfSaveOptions As New PdfSaveOptions With { .ImageQuality = 100 } ' ワークブックをPDFとして保存 workbook.Save(outputStream, pdfSaveOptions)