WORD2000, EXCEL2000のフォームツールバーからのスクロールバーについて。

質問

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

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

回答No.3

imogasi

＃２のものです。追加して色々やって見ました。報告します。
（１）Ｓｈａｐｅｓの１種のテキストボックス
エクセルのワークシートのツールバーのテキストボックス（縦書きや横書き）は、図形の１種で、スクロールバーは付かない（付けられない）ようです。プロパティのウィンドウも出す方法がなく、設定も「テキストボックスの
書式設定」に限られます。
ActiveSheet.Shapes("Text Box 16").ScrollBars = 1
はエラーになります。
（注１を実行して見てください。）
------------
（２）Ａｃｔｉｖｅコントロール
一方メニューバーの余白で右クリックして出てくる、ＶｉｓｕａｌＢａｓｉｃのツールバーアイコン（金槌とスパナ）をクリックして出るツールバーの中のテキストボックス（ａｂ｜）をクリックして出てくる、＋をワ―クシート上でドラッグして出きるテキストボックスは、
(MultiLine = Trueだと）
文字を大きくしたり文字数が多いと、垂直スクロールバーは指定しておくと付きます。水平スクロールバーはつかない。
(MultiLine = Falseだと）
文字を大きくしたり文字数が多いと、水平スクロールバーは自動的に付きます。垂直スクロールバーは勿論付きません。
（注２を実行してみて下さい。）文字数を短くすると自動的に消えます。
------------
（３）もう一つ「フォーム」ツールバーをクリックしても、色々なコントロールを設定できます。しかしなぜか、テキストボックスは使えません。
-------------
（注１）
Text Box 16の１６は、テキストボックスをデザインモードでポインとしたとき、「名前ボックス」に出る「テキスト　１６」の１６と合わせてください。
Worksheets("sheet1").Activate
ActiveSheet.Shapes("Text Box 16").Select
' Selection.Top = 3600
Selection.Characters.Text = "関西地区大阪市中央区本町２－２－２"
End Sub
--------------
（注２）
適当に’を外して、スクロールバーの付加・消滅変化を見てください。
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 = "関西地区大阪市中央区本町２－２－２"
' Worksheets("sheet1").TextBox1.Text = ""
' Worksheets("sheet1").TextBox1.Text = "関西地区"
' Worksheets("sheet1").TextBox1.Font.Size = 25
End Sub

お礼

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

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

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

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

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

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

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

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

回答No.2

imogasi

下記のようにしてテストしました。何かヒントになれば
幸いです。
ツール－マクロ－ＶＢＥをクリック。
挿入－ユーザーフォーム－ツールボックスからテキストボックスを
ユーザーフォームにドラッグドロップする。
ツール－マクロ－マクロ名－ｔｅｓｔ０１（仮に）
Ｓｕｂ　ｔｅｓｔ０１（）
Ｅｎｄ　Ｓｕｂが現れる。
その中に
Ｕｓｅｒｆｏｒｍ１．Ｔｅｘｔｂｏｘ１．Ｍｕｌｔｉｌｉｎｅ＝Ｔｒｕｅ
Ｕｓｅｒｆｏｒｍ１．Ｓｈｏｗをいれる。
テキストボックスのプロパティにＳｃｒｏｌｌｂａｒがあるが、０を２（垂直スクロールバー付き）にする。
そしてｔｅｓｔ０１を実行する。
テキストボックス内で（文字を入力する）そしてＣｔｒｌ＋エンタを
数回繰り返す縦幅を超えると、突然スクロールバーが現れます。
すなわちスクロ－ルバーコントロールを横にくっ付ける必要はないと思います

回答No.1

maro200

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

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

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

補足

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

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

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

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

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