OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

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

  • 困ってます
  • 質問No.232890
  • 閲覧数625
  • ありがとう数1
  • 気になる数0
  • 回答数3
  • コメント数0

お礼率 78% (39/50)

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

WEB上でない状態で、テキストボックスあるいは、レイアウト枠、などに、スクロールバーを挿入して、スクロールさせる方法を ぜひ、教えてください。
通報する
  • 回答数3
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全3件)

  • 回答No.1
レベル8

ベストアンサー率 45% (15/33)

>スクロールバーを テキストボックスに挿入して というのは、スクロールバーオブジェクトのことでしょうか? テキストボックスのプロパティの"ScrollBars"を設定すれば できると思うのですが、こっちができないのでしょうか? ...続きを読む
>スクロールバーを テキストボックスに挿入して

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

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

お礼率 78% (39/50)

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

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

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

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

もしも、お時間と余裕がありましたら、ぜひ、教えてください。
投稿日時 - 2002-11-28 10:21:34
  • 回答No.2
レベル14

ベストアンサー率 28% (4322/15243)

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

ベストアンサー率 28% (4322/15243)

#2のものです。追加して色々やって見ました。報告します。 (1)Shapesの1種のテキストボックス エクセルのワークシートのツールバーのテキストボックス(縦書きや横書き)は、図形の1種で、スクロールバーは付かない(付けられない)ようです。プロパティのウィンドウも出す方法がなく、設定も「テキストボックスの 書式設定」に限られます。 ActiveSheet.Shapes("Text B ...続きを読む
#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
お礼コメント
yumi-

お礼率 78% (39/50)

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

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

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

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

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

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

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

P.S. 昨日の時点で、imogashiさんの方にも、長い間お返事を頂きながら、すみませんでしたというメッセージと、補足をさせて頂いたつもりでしたが、インターネットの不調のせいか(最近、私のメールがよく行方不明になっているのです。)、補足されていませんでした。それにもかかわらず、お答えいただいて本当にありがとうございました。
投稿日時 - 2002-11-29 11:39:10
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ