印刷しようとしたら余白がかなり余っている。
全体的に表のセルの幅を同じ倍率で広げてその余白を埋めようとしたけど、そのような機能は調べても出てこない。全て同じ幅にするというのは出てくるんだけどそうじゃないんだよなぁ。1つ1つ変更するのも面倒だったのでマクロでできないか調べてみた。
参考サイト
Yahoo知恵袋
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10148967640
インストラクターのネタ帳
https://www.relief.jp/docs/018031.html
作ったコード
Sub 選択したセルの幅を変更する()
Dim rng As Range
For Each rng In Selection.Columns
rng.ColumnWidth = rng.ColumnWidth * 1.1
Next
End Sub
できた:)
コメント