Ｐａｇｅ 617 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼コントロールの文字を縦書きにするには？ ぴかる 03/1/27(月) 15:28 ┗Re:コントロールの文字を縦書きにするには？ ichinose 03/1/27(月) 16:53 ┗Re:コントロールの文字を縦書きにするには？ ぴかる 03/1/27(月) 17:27 ┗Re:コントロールの文字を縦書きにするには？ JuJu 03/1/27(月) 18:50 ┗Re:コントロールの文字を縦書きにするには？ BOTTA 03/1/27(月) 19:17 ┗ありがたや、ありがたやでございます。 ぴかる 03/1/28(火) 9:20 ─────────────────────────────────────── ■題名 ： コントロールの文字を縦書きにするには？ ■名前 ： ぴかる ■日付 ： 03/1/27(月) 15:28 -------------------------------------------------------------------------
| みなさん、こんにちは。 ユーザーフォームのコマンドボタンの文字を縦書きにしたいと考えております。 可能でありましたら、ご教授よろしくお願いいたします。 |
| ▼ぴかる さん： こんにちは。 >みなさん、こんにちは。 > >ユーザーフォームのコマンドボタンの文字を縦書きにしたいと考えております。 >可能でありましたら、ご教授よろしくお願いいたします。 他に方法があるかもしれませんが･･･（きっとありそう）、私はこんな風にしています。 '======================================================= Private Sub UserForm_Initialize() With CommandButton1 .Caption = Join(Array("ボ", "タ", "ン"), vbLf) End With End Sub |
| ichinoseさん、こんにちは。 >Private Sub UserForm_Initialize() > With CommandButton1 > .Caption = Join(Array("ボ", "タ", "ン"), vbLf) > End With >End Sub ありがとうございます。すばらしい！、出来ました。バッチリです。 少しだけワガママを言わさせて頂くと、手動で出来るともっとうれしいです。 （全然、少しだけでないような・・・。お許しを _(._.)_ ) ご存じの方、お見えになりましたらよろしくお願いいたします。 |
| ぴかるさん、ichinoseさん、こんにちはぁ >少しだけワガママを言わさせて頂くと、手動で出来るともっとうれしいです。 Captionを変えたいコマンドボタンを選択して、コマンドボタンをクリック（ダブルクリックにならないように注意）。 するとコマンドボタンの名前を（プロパティウィンドウを使わずに）直接編集できるので、変更したい名前を入力します。 一文字ごと改行（Ctrl+Enter）を入力します。 手動ってこういう意味ですか？ はずしかも。 ではではぁ |
| JuJuさん、ぴかるさん、ichinoseさん、こんにちは。 プロパティウィンドウのCaption欄に 他のエディタで１字づつ改行してから、 改行コードを含めてコピペでもできたよ。 |
| JuJuさん、BOTTAさん、おはようございます。 お二方様、バッチリです。両方ともうまく縦書きとなりました。ありがとうございました。ＶＢＡを始めた頃から気になってた内容だったんで、とってもスッキリしました。おかげさまですんごく気分が良いので、今日の仕事は捗りそうです。さあ、がんばろっと！ |