作成日: 2021/12/21 最終更新日: 2022/02/09
文書種別
不具合
状況
修正済み
詳細
「折り返して全体を表示する」が設定されたセルの右隣のセルに、IRange.AutoFitメソッドなどを使用してセルの高さを自動調整しようとしても、自動調整されません。
そのため、PDFとして保存した場合、文字が想定通りに出力されないことがあります。
そのため、PDFとして保存した場合、文字が想定通りに出力されないことがあります。
回避方法
この問題はバージョン5.0.2で修正されました。
※修正版を適用しない場合の回避方法は以下の通りです。
「折り返して全体を表示する」が設定されたセルの右側に列を追加し、その列を非表示にする方法にて回避できます。
具体的な実装方法は、下記の通りです。
※修正版を適用しない場合の回避方法は以下の通りです。
「折り返して全体を表示する」が設定されたセルの右側に列を追加し、その列を非表示にする方法にて回避できます。
具体的な実装方法は、下記の通りです。
workbook.Open("test.xlsx")
Dim worksheet = workbook.ActiveSheet
Dim usedrange = worksheet.UsedRange
Dim list As List(Of Integer) = New List(Of Integer)
For i = 0 To usedrange.Count
If usedrange(i).WrapText Then
list.Add(usedrange(i).LastColumn)
End If
Next
Dim columns = list.Distinct().OrderByDescending(Function(val) val)
For i As Integer = 0 To columns.Count - 1
worksheet.Columns(columns(i) + 1).Insert()
worksheet.Columns(columns(i) + 1).Hidden = True
Next
worksheet.UsedRange.Rows.AutoFit()
workbook.Save("Result.pdf")
Dim worksheet = workbook.ActiveSheet
Dim usedrange = worksheet.UsedRange
Dim list As List(Of Integer) = New List(Of Integer)
For i = 0 To usedrange.Count
If usedrange(i).WrapText Then
list.Add(usedrange(i).LastColumn)
End If
Next
Dim columns = list.Distinct().OrderByDescending(Function(val) val)
For i As Integer = 0 To columns.Count - 1
worksheet.Columns(columns(i) + 1).Insert()
worksheet.Columns(columns(i) + 1).Hidden = True
Next
worksheet.UsedRange.Rows.AutoFit()
workbook.Save("Result.pdf")