// PDF ファイルストリームの作成 using FileStream outputStream = new FileStream("ShrinkToFitForWrappedText.pdf", FileMode.Create); // 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.PageSetup.PrintGridlines = true; worksheet.PageSetup.PrintHeadings = true; // "A1"セルは通常の折り返しテキスト worksheet.Range["A1"].WrapText = true; worksheet.Range["A1"].Value = ".NET API DioDocs for Excel"; worksheet.Range["A1"].RowHeight = 42; worksheet.Range["A1"].ColumnWidth = 9; // "A2"セルの折り返しテキストをセル内に収まるように縮小 worksheet.Range["A2"].WrapText = true; worksheet.Range["A2"].ShrinkToFit = true; worksheet.Range["A2"].Value = ".NET API DioDocs for Excel"; worksheet.Range["A2"].RowHeight = 32; // ShrinkToFitSettingsを使用する前にpdfSaveOptionsオブジェクトを作成する必要があります PdfSaveOptions pdfSaveOptions = new PdfSaveOptions(); // PDFへのエクスポート中に、セル内の折り返しテキストを既存の行の高さ/列の幅で縮小 pdfSaveOptions.ShrinkToFitSettings.CanShrinkToFitWrappedText = true; // テキストを縮小するときの最小フォントサイズを設定 // pdfSaveOptions.ShrinkToFitSettings.MinimumFont = 10; // 最小フォントサイズを設定することで、テキスト全体が表示しきれなくなった場合、省略記号を表示 // pdfSaveOptions.ShrinkToFitSettings.Ellipsis = "~"; // ワークブックをPDFファイルに保存 workbook.Save(outputStream, pdfSaveOptions);
' PDF ファイルストリームの作成 Dim outputStream = File.Create("ShrinkToFitForWrappedText.pdf") ' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.PageSetup.PrintGridlines = True worksheet.PageSetup.PrintHeadings = True ' "A1"セルは通常の折り返しテキスト worksheet.Range!A1.WrapText = True worksheet.Range!A1.Value = ".NET API DioDocs for Excel" worksheet.Range!A1.RowHeight = 42 worksheet.Range!A1.ColumnWidth = 9 ' "A2"セルの折り返しテキストをセル内に収まるように縮小 worksheet.Range!A2.WrapText = True worksheet.Range!A2.ShrinkToFit = True worksheet.Range!A2.Value = ".NET API DioDocs for Excel" worksheet.Range!A2.RowHeight = 32 ' ShrinkToFitSettingsを使用する前にpdfSaveOptionsオブジェクトを作成する必要があります Dim pdfSaveOptions As New PdfSaveOptions ' PDFへのエクスポート中に、セル内の折り返しテキストを既存の行の高さ/列の幅で縮小 pdfSaveOptions.ShrinkToFitSettings.CanShrinkToFitWrappedText = True ' テキストを縮小するときの最小フォントサイズを設定 ' pdfSaveOptions.ShrinkToFitSettings.MinimumFont = 10; ' 最小フォントサイズを設定することで、テキスト全体が表示しきれなくなった場合、省略記号を表示 ' pdfSaveOptions.ShrinkToFitSettings.Ellipsis = "~"; ' ワークブックをPDFファイルに保存 workbook.Save(outputStream, pdfSaveOptions)