コマンドボタン 改行したい

エクセル２００７です。
コマンドボタンに表示する文字を開業して表示したいです。

現在は、「CommandButton1」と表示していますが
「Command
Button1」と表示する方法はありますか？

ご回答よろしくお願いします。

No.5 回答者： nicotinism 回答日時： 2012/04/28 06:13

ActiveX コントロールのコマンドボタンの場合は

そのボタンを右クリックして現れるメニューの
コマンドボタン オブジェクト → 編集
を選択。
カーソルが、|CommandButton1 と先頭で点滅するので
改行させたいところへ移動して、Shift + Enter キーで改行できます。
Excel2000と2010でOKだったので2007でも大丈夫？

No.4 回答者： m3_maki 回答日時： 2012/04/28 00:33

イミディエイトウィンドウから

Activesheet.CommandButton1.Caption="Command" & vbNewLine & "Button1"

とか

Worksheets("Sheet1").CommandButton1.Caption="Command" & vbNewLine & "Button1"

を実行する。

No.3 回答者： keithin 回答日時： 2012/04/28 00:11

てきとーなセルを１個使って

Command ALT+Enter
Button ALT+Enter
1
などのように記入しておきます

数式バーの中で記入した文字列を選択し、コピーします


コマンドボタンのプロパティパネルを開きます
Captionの欄にCtrl+Vで貼り付けて記入します。

No.2 回答者： xls88 回答日時： 2012/04/27 23:56

試してください。

Dim obj As Object
For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CommandButton.1" Then
If obj.Object.Caption = "CommandButton1" Then
With obj.Object
.Caption = Replace(.Caption, "Command", "Command" & vbLf)
'.Caption = "CommandButton1" '元のCaptionにする例
Exit For
End With
End If
End If
Next

この回答へのお礼

できました～！！！
ありがとうございました。

お礼日時：2012/04/28 22:55

No.1 回答者： okwaveko 回答日時： 2012/04/27 23:30

リボン＞コントロール＞(コントロールの)挿入＞フォームコントロール＞ボタン(フォームコントロール)を使いますと、後はホームの配置を利用して2段なり、3段なりに加工して遣って居ます。

此の時、フォントも好みに変えたりして居ます。

この回答へのお礼

フォームコントロールなら出来るのですか。
画像まで添付してくださってありがとうございました。

お礼日時：2012/04/28 22:54