Excelで長い文章を入力すると、印刷するとき行が切れてしまうことがあります。あまりに頻発して頭に来たのでエクセル・マクロを作ってみました。 Public Sub 行高さを1割増しにする() Dim 現在行 As Range For Each 現在行 In ActiveCell.CurrentRegion.Rows 現在行.Select Selection.RowHeight = Selection.RowHeight * 1.1 Next DoEvents End Sub すべての行を自動的に1割り増しにするマクロです。 が、これでもうまくいかないことがあるのです。どなたか、改良型を作ってみてはいただけないでしょうか。 関連質問: http://q.hatena.ne.jp/1146643798 http://q.hatena.ne.jp/1125885317