• 締切済み

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

エクセル2007です。 コマンドボタンに表示する文字を開業して表示したいです。 現在は、「CommandButton1」と表示していますが 「Command Button1」と表示する方法はありますか? ご回答よろしくお願いします。

みんなの回答

  • nicotinism
  • ベストアンサー率70% (1019/1452)
回答No.5

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

すると、全ての回答が全文表示されます。
  • m3_maki
  • ベストアンサー率64% (296/460)
回答No.4

イミディエイトウィンドウから Activesheet.CommandButton1.Caption="Command" & vbNewLine & "Button1" とか Worksheets("Sheet1").CommandButton1.Caption="Command" & vbNewLine & "Button1" を実行する。

すると、全ての回答が全文表示されます。
  • keithin
  • ベストアンサー率66% (5278/7941)
回答No.3

てきとーなセルを1個使って Command ALT+Enter Button ALT+Enter 1 などのように記入しておきます 数式バーの中で記入した文字列を選択し、コピーします コマンドボタンのプロパティパネルを開きます Captionの欄にCtrl+Vで貼り付けて記入します。

すると、全ての回答が全文表示されます。
  • xls88
  • ベストアンサー率56% (669/1189)
回答No.2

試してください。 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

backuptransl
質問者

お礼

できました~!!! ありがとうございました。

すると、全ての回答が全文表示されます。
noname#207589
noname#207589
回答No.1

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

backuptransl
質問者

お礼

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

すると、全ての回答が全文表示されます。

関連するQ&A