【Excel VBA】印刷時、はみ出ないようにセルの高さを自動調整するには

7行目以降にデータが入っている集計表があります。

7行目以降の全行を選択して、行間をダブルクリック(自動調整)すると、
セル内の折り返し行数に応じて自動的に行の高さが調整されますが、
下記2つの不満があります。

(1)印刷するとセルからはみ出て切れてしまう文字がある
(2)折り返し行が1行、2行、3行が混在すると、1行が低すぎてバランスが悪い

これを解消するために、
・自動調整しても下限値を設定する(例えば32ピクセル以下にはしない等)
　または、
・自動調整したセルの高さに一定ピクセルを加算する
みたいなことをVBAで行うにはどうすればよいでしょうか？

つまり、
Selection.Rows.AutoFit だと印刷時にバランスが悪く、印刷されない部分ができてしまうために、
下限値を設定するか一定値を加算したいのですが、良い方法はないでしょうか？

ちなみに、各セルには縮小ではなく「折り返して全体を表示」にしてあり、縮小はしたくありません。

No.1 回答者： あつしノリノリ 回答日時： 2018/10/04 15:30

市役所などの自治体が行っているパソコン相談で相談したほうが良いと思います。