VBAで指定範囲内の文字サイズを指定する
せっかく作ったのに意図しない文字サイズ変更をされて、印刷レイアウトがぐちゃぐちゃになった経験ありませんか？
作業時間効率化の為にExcel-VBAのユーザーフォームで設定した印刷ボタンには、印刷のレイアウトまで考えて文字サイズを指定していたのに意味をなさなくなってしまいますよね。
そこで印刷ボタンに文字サイズを指定するVBAコードを書き加えて解決しましょう。
目次
Fontオブジェクトで強制指定する
文字や数字などのデータが入力されていても空白でも関係なく、セルの文字サイズをExcel-VBAを使って変更することができます。
使用するVBAコードは、FontオブジェクトのSizeプロパティでポイント単位で文字サイズを変更します。
VBAで指定した特定のセルだけ文字サイズ指定
上記画像ではワークシート上の文字サイズは、エクセルの初期設定のままの11になっています。
「〇×株式会社」と入力されている【セルH4】の1か所だけ文字サイズを16に変更してみましょう。
いつものように、ユーザーフォームに配置したコマンドボタンを押した時にVBAコードが働くようにしています。
VBAコード
Private Sub CommandButton1_Click()
Range(“H4”).Font.Size = 16
End Sub
解説
- コマンドボタン1がクリックされたら
- セルH4の文字サイズを16ポイントに設定する
- マクロ記録終了
とても簡単にVBAコードで文字サイズは変更可能なので、次は特定のセルの範囲の文字サイズを指定してみましょう。
VBAで指定した範囲の文字サイズ指定
文字や数字などのデータ入力済みセルや空白セルも含め、指定した範囲内のセルの文字サイズを全て変更します。
VBAコード
Private Sub CommandButton1_Click()
Range(“A1:H15”).Font.Size = 16
End Sub
解説
- コマンドボタン1がクリックされたら
- セルA1～H15の範囲全ての文字サイズを16ポイントに設定する
- マクロ記録終了
指定した範囲のセルの文字サイズが変更できました。
上記画像のように文章がはみ出てしまっては意味が無いので、文字サイズは印刷などを確認したうえで設定して下さいね。
とりっぷぼうる
文字サイズの応用で、入力済み行数を自動的に読み取って文字の大きさも自動的に用紙サイズに合わせて拡大縮小させることも試してみませんか？
参考までに、ユーザーフォームに配置した印刷ボタンに文字サイズ指定を追加するならば、VBAコードの最初に記入が必要です。
印刷実行コードの後にVBAコードを書いても無駄ですよ！順番が重要なので、Select Case TextBox1のVBAコードの前に1行入れればOKです！
あわせて読みたい
印刷枚数入力テキストボックス付きVBA印刷フォームを作る
印刷したい枚数を自由に指定して印刷しできたらもっと便利になりませんか？ アイキャッチ画像（上の図）のように、印刷したい枚数をテキストボックスに入力して印刷実行...
セルの操作関連の参考VBA集
みんなが疑問に思ってたりで良く調べられているセル関連のVBAコードで、今週よく見られている5つのページなので、参考になれば幸いです。
