[[20200208003457]]　『セルの高さ調整をVBAで』（セル）　ページの最後に飛ぶ

『セルの高さ調整をVBAで』（セル）

セルの高さ調整を自動で出来るように以下のVBAを組んでいます。

Private Sub Worksheet_Activate()
Rows(10).AutoFit
Rows(12).AutoFit
Rows(14).AutoFit
Rows(16).AutoFit
Rows(18).AutoFit
Rows(20).AutoFit
Rows(12).AutoFit
Rows(22).AutoFit
Rows(24).AutoFit
Rows(12).AutoFit
Rows(26).AutoFit
Rows(28).AutoFit
Rows(30).AutoFit
Rows(32).AutoFit
Rows(34).AutoFit
Rows(36).AutoFit
Rows(38).AutoFit

End Sub

ですが、PDF保存するとセル内の文字が微妙に切れてしまいます。
そこで自動調整した上で尚且つプラス５ピクセルぐらい幅を持たせるにはどうしたらよろしいでしょうか？
また、幅を持たせなくても文字が見切れない方法がありましたらお願い致します
。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 おはようございます。　＾＾
変えたい　RowHeight　＝　変えたい　RowHeight　+　増量分（数値）
ではどうでせう。
With Worksheets("Sheet1")
    For i = 10 To 38 Step 2
        Rows(i).AutoFit
        Rows(i).RowHeight = Rows(i).RowHeight + 35
    Next
End With
（隠居じーさん） 2020/02/08(土) 07:58

　＞また、幅を持たせなくても文字が見切れない方法がありましたらお願い致します。

幅というのは縦方向のことですか？
横方向のことですか？

いずれにしても、エクセルはこの手のことは苦手です。
印刷プレビューでしっかり確認しても切れることがありますよね？
画面上で大丈夫なら、図としてコピーして貼り付けしたら
（印刷用のシートにリンク貼り付けとかする）、
一応は文字切れはないかと思いますが、、、、

VBAを使ったからと言って、
この問題は完璧な解決策がなさそうです。
（あれば、僕も知りたい。だれか情報があれば。。。）

（まっつわん） 2020/02/08(土) 22:42

高さ調節しているくらいだから、長文で折り返している状態と思いますが、いかがでしょう？

長文の折り返しで、最下行付近が切れる場合の対策として、私は長文の末尾に改行を2個くらい入れるという方法を取ってますね。 Excelはフォント幅可変だと、セル幅は2進数誤差等でぴったりにはならないのが常なので、仕方ないかと思います。
（???） 2020/02/10(月) 09:34

コメント返信：

[ 一覧(最新更新順) ]

[[20200208003457]] 『セルの高さ調整をVBAで』（セル） ページの最後に飛ぶ

[[20200208003457]]　『セルの高さ調整をVBAで』（セル）　ページの最後に飛ぶ