テキストボックスに入れた文章が、大きすぎるので、スクロールバーを テキストボックスに挿入して、スクロールさせようとしても、作動しないのです。

WEB上でない状態で、テキストボックスあるいは、レイアウト枠、などに、スクロールバーを挿入して、スクロールさせる方法を ぜひ、教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

#2のものです。

追加して色々やって見ました。報告します。
(1)Shapesの1種のテキストボックス
エクセルのワークシートのツールバーのテキストボックス(縦書きや横書き)は、図形の1種で、スクロールバーは付かない(付けられない)ようです。プロパティのウィンドウも出す方法がなく、設定も「テキストボックスの
書式設定」に限られます。
ActiveSheet.Shapes("Text Box 16").ScrollBars = 1
はエラーになります。
(注1を実行して見てください。)
------------
(2)Activeコントロール
一方メニューバーの余白で右クリックして出てくる、VisualBasicのツールバーアイコン(金槌とスパナ)をクリックして出るツールバーの中のテキストボックス(ab|)をクリックして出てくる、+をワ―クシート上でドラッグして出きるテキストボックスは、
(MultiLine = Trueだと)
文字を大きくしたり文字数が多いと、垂直スクロールバーは指定しておくと付きます。水平スクロールバーはつかない。
(MultiLine = Falseだと)
文字を大きくしたり文字数が多いと、水平スクロールバーは自動的に付きます。垂直スクロールバーは勿論付きません。
(注2を実行してみて下さい。)文字数を短くすると自動的に消えます。
------------
(3)もう一つ「フォーム」ツールバーをクリックしても、色々なコントロールを設定できます。しかしなぜか、テキストボックスは使えません。
-------------
(注1)
Text Box 16の16は、テキストボックスをデザインモードでポインとしたとき、「名前ボックス」に出る「テキスト 16」の16と合わせてください。
Worksheets("sheet1").Activate
ActiveSheet.Shapes("Text Box 16").Select
' Selection.Top = 3600
Selection.Characters.Text = "関西地区大阪市中央区本町2-2-2"
End Sub
--------------
(注2)
適当に’を外して、スクロールバーの付加・消滅変化を見てください。
Sub test03()
Worksheets("s
heet1").TextBox1.MultiLine = False
Worksheets("sheet1").TextBox1.ScrollBars = 3
' Worksheets("sheet1").TextBox1.MultiLine = False
' Worksheets("sheet1").TextBox1.MultiLine = True
Worksheets("sheet1").TextBox1.ScrollBars = 3
Worksheets("sheet1").TextBox1.Text = "関西地区大阪市中央区本町2-2-2"
' Worksheets("sheet1").TextBox1.Text = ""
' Worksheets("sheet1").TextBox1.Text = "関西地区"
' Worksheets("sheet1").TextBox1.Font.Size = 25
End Sub
    • good
    • 0
この回答へのお礼

早速のご返答、どうもありがとうございます。 

とても、詳しく書いていただき、理解がしやすくなりとても、感謝しています。

以前に教えていただいたものと、上記のものを試してみました。 スクロールバーが 出現しました!! ありがとうございました!! 感動でした!!

もう、2件追加で、質問があるのですが、もしも、宜しければ、お答え頂けるととても、助かります。

1.基本的な質問で大変申し訳ないのですが、プロパティで、自分で設定(選択)した後、ビジュアルベーシックも設定(プログラムを書き込む)をしなければ いけないものなのでしょうか。

2.スクロールバーを 独自に設定する事(テキストボックスを設定するように)は、可能なのでしょうか。その場合どのようになりますでしょうか。

本当に何もわかっていない状態で、大変申し訳ないのですが、もしも、お時間と余裕がありましたら、ぜひ、教えて頂けたらと思います。

P.S. 昨日の時点で、imogashiさんの方にも、長い間お返事を頂きながら、すみませんでしたというメッセージと、補足をさせて頂いたつもりでしたが、インターネットの不調のせいか(最近、私のメールがよく行方不明になっているのです。)、補足されていませんでした。それにもかかわらず、お答えいただいて本当にありがとうございました。

お礼日時:2002/11/29 11:39

下記のようにしてテストしました。

何かヒントになれば
幸いです。
ツール-マクロ-VBEをクリック。
挿入-ユーザーフォーム-ツールボックスからテキストボックスを
ユーザーフォームにドラッグドロップする。
ツール-マクロ-マクロ名-test01(仮に)
Sub test01()
End Subが現れる。
その中に
Userform1.Textbox1.Multiline=True
Userform1.Showをいれる。
テキストボックスのプロパティにScrollbarがあるが、0を2(垂直スクロールバー付き)にする。
そしてtest01を実行する。
テキストボックス内で(文字を入力する)そしてCtrl+エンタを
数回繰り返す縦幅を超えると、突然スクロールバーが現れます。
すなわちスクロ-ルバーコントロールを横にくっ付ける必要はないと思います
    • good
    • 0

>スクロールバーを テキストボックスに挿入して



というのは、スクロールバーオブジェクトのことでしょうか?

テキストボックスのプロパティの"ScrollBars"を設定すれば
できると思うのですが、こっちができないのでしょうか?

この回答への補足

長い間アドバイスをいただきながらお返事もかけずに すみませんでした。

もしも、まだ、お答えいただけるようでしたら、御願いをしたいのです。

私が言っているテキストボックスは、図形描画、或いは挿入からいれるテキストボックスの事だったのですが、VBの中の挿入からのテキストボックスのプロパティのScrollbarsを変更する事により、図形描画のテキストボックス内にも、スクロールバーが動作するように出来ますでしょうか。

変更をするのには、どのように設定すれば宜しいのでしょうか。

もしも、お時間と余裕がありましたら、ぜひ、教えてください。

補足日時:2002/11/28 10:21
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング