CommandButtonのCaption(複数行にわたるタイトル)

ExcelのUserForm上、或はシート上にActiveXのCommandButtonを置きました。
このボタンのCaptionに複数行にわたるタイトルを入れたいと考えております。
VBA のMsgBoxなら、
MsgBox "abc" & Chr(10) & "abc" & Chr(10) & "abc"　で、可能ですが、
ボタンのCaptionでは、可能でしょうか？

宜しくお願い致します。

No.2 ベストアンサー 回答者： cj_mover 回答日時： 2015/02/19 03:57

こんにちは。

お邪魔します。

> ExcelのUserForm上、或はシート上にActiveXのCommandButton
どちらの場合も、改行に関する４種のVB組み込み定数で、
「改行させること」は可能です。
　　CommandButton1.Caption = "A" & vbCrLf & "B" & vbCr & "C" & vbLf & "D" & vbNewLine & "E"
Chr関数で書くと
　　CommandButton1.Caption = "A" & Chr(13) & Chr(10) & "B" & Chr(13) & "C" & Chr(10) & "D" & Chr(10) & "E"
です。

「改行させること」は可能ですが、
　　vbCr , vbLf , vbNewLine
　　Chr(13) , Chr(10) , Chr(10)
どの文字を指定しても、CommandButton上ではすべて
　　vbCrLf (=) Chr(13) & Chr(10)
に変換されます。

また、
どちらの場合も、デザインモードから
オブジェクトのテキストエリアへの直接入力で、
改行させることは出来ますが、
Ctrl + Enter でも、ラインフィードを含んだ文字列を直接貼り付けても
やはり改行は強制的に CrLf として確定されます。

なので、
「CommandButton1上に vbLf／Chr(10) だけを改行文字として確定させること」
は、残念ながら、出来ません。

この回答へのお礼

ありがとうございます。
うまくいきました。驚きです。
これで、今、やろうとしていたことが、1歩、前に進められます。
感謝です。

お礼日時：2015/02/19 21:30

No.1 回答者： tom04 回答日時： 2015/02/18 23:53

こんばんは！

ユーザーフォームのコマンドボタンであれば
Captionに何らかの文字を入力　→　Enter
これでユーザーフォーム内のコマンドボタン上で編集可能になりますので、
改行したいところにカーソルを持っていき
Ctrl＋Enter　で改行できます。

※　ActiveXのコマンドボタンは試してみたけどダメでした。
できる方法があればごめんなさいね。m(_ _)m

この回答へのお礼

ありがとうございます。
できることがわかり、感謝です。

お礼日時：2015/02/19 21:27