vba フレーム内スクロールバーを初期値へ

Question

excel vba ユーザーフォーム内のフレームにあるスクロールバーをコマンドボタンで初期値に戻すにはどのようにしたらよいでしょうか？
Frame.ScrollBars = 1
ではスクロールバーが無効になってしまいます。
Frame.ScrollBars.value = 1
にすると修飾子が不正ですとのエラーが表示されます。

初歩的な質問だとは思いますが、お力添えいただければ幸いです。

Answer 1

フレームのスクロールバーを表示させていて、そのスクロールバーについての話なのか、
フレーム内にスクロールバーコントロールを配置していて、そのスクロールバーコントロールについての話なのか不明瞭ですが、前者だとして回答しますね。

ScrollBarsプロパティに fmScrollBarsHorizontal を設定して水平スクロールバーを表示しているとして、スクロール位置を一番左(初期値)にするなら下記のコードになります。

Private Sub CommandButton1_Click()
    Me.Frame1.ScrollLeft = 0    
End Sub

垂直スクロールバーを表示させているなら、

Private Sub CommandButton1_Click()
    Me.Frame1.ScrollTop = 0    
End Sub

---

フレーム内にスクロールバーコントロールを配置していて、それについての話なら、下記で初期値になります。

Private Sub CommandButton2_Click()
    Me.ScrollBar1.Value = 0   
End Sub

Comments

[Gorisansan]

フレーム内のスクロールバーを表示させていることについての質問でした。分かりづらく申し訳ありません。
お教えいただいた、
Private Sub CommandButton1_Click()
Me.Frame1.ScrollTop = 0
End Sub
こちらで思い通りうまく作動しました！
ご丁寧な回答ありがとうございます！

Answer 2

対象のオブジェクト名は、提示いただいたコードであっていますか？
例えば、以下のような名前ではありませんか？

Frame1.ScrollBar1

プロパティウィンドウで確認してみてください。

Comments

[Gorisansan]

分かりづらく申し訳ありません。
フレーム内に設置したスクロールバーコントロールではなく、
フレーム内に表示させているスクロールバーについての質問でした。
ご回答いただきありがとうございます。