エクセル フォームのラベルのテキストを縦書きにする方法(Excel VBA)

【本日のミッション】

Excel VBA フォームのラベルを縦書きにせよ。

ミッションの概要

Excelのフォームのラベルって縦書きが設定できないんです。

これを縦書きにしちゃおう!っていうのが今回のミッションです。

フォーム ラベル を縦書きにする方法

Excel VBAにラベル縦書き設定の仕様がないので、地味な方法で解決します。

一文字ずつに改行を入れて、見た目を縦書きにするという方法です。

通常の「Enter」だけでは改行は入りません。

「Ctrl+Enter」です。

1文字ずつ改行を入れ、全ての文字が縦に並んだらテキストボックスのサイズを整えてできあがりです。

見た目が「縦書きラベル」になったでしょ?

サザエさんキャラクター紹介よりお名前を使わせていただいております。

参照

「数字が文字列として保存されています。」を一括で数字に変換
データが増減しても参照先を変更しない名前の管理(Excel)
連動するドロップダウンリストを名前の管理・入力規制・OFFSET・INDIRECTを使って「リストが表示されない」を解決(Excel)
Excel 複数セル内の改行(Alt+Enter)を一括で解除する方法
Excel関数を使って 縦の表に連動した(リンクした)横の表を一括で作成せよ
ワイルドカードとは。使い方いろいろ。(Excel)
Excelの改ページの点線を消す方法
Excelの背景にある薄グレーの枠線(罫線)を消す(非表示)方法
非表示になってしまった列を表示させる方法
ファイルを開くと空の画面も同時に開くのを解決(Excel)
図 画像 グラフ ボタン などのオブジェクトが消えてしまった時の表示方法(Excel)
大量の画像やグラフ等のオブジェクトで画面表示が遅いのを解決(Excel)
保護されたシートに対して、このコマンドは使用できません。テーマが変えられない現象を解決(Excel)
離れた複数列をまとめて列番号(数字)で選択する方法(Excel VBA)
Excel VBA で選択した複数のセルにデータ・数式を(Ctrl+Enter のように)一気に入力する方法
離れた複数列を列番号(数字)で指定して、列幅変更する方法(Excel VBA)
エクセル フォームのラベルのテキストを縦書きにする方法(Excel VBA)

■■■スポンサーリンク■■■