VBA フレーム スクロール (Formの一部分だけをスクロール)

Question

#実現したいこと
ExcelのVBAのフォーム画面にてデータを扱います
フォームにフレームAを配置し、フレームAをスクロールさせるのは可能でしょうか？

フレーム内にたくさんのラベル等を配置し、フレームのサイズからはみ出してしまう部分に関しては、フレームのサイズを変更せずに、スクロールバーを使用して表示できるようにしたいと考えています。

ネットである程度検索しましたが、最適な結果が見つかりませんでした。

Answer 1

少々面倒ですが、可能と思います。
コードを全部書くと大変なことになりそうなので、基本的な構成を書いておきます。
まずフレームを２つ用意します。
ひとつはフォーム上に配置するもの（以下、フレームA）
もうひとつはフレームA内に配置するもの（以下、フレームA’）

■フレームA
通常通り、フォームに配置してください。
その際、スクロールバーのプロパティを設定します。
ScrollBarsをfmScrollBarsBothとしてください。
（縦方向か横方向のみで良ければ適宜変更してください）
その他、ScrollHeight ScrollWidthなどを設定します（フレームA'のサイズで良いでしょう）

■フレームA'
フレームA内に作りますが、大きさの関係上、最初はフレームAの外で編集した方がやりやすいでしょう。
質問にあるようにラベルなどを配置します。
フレームの大きさは、A＜A'となります。
いくつかのプロパティを変更して、枠などを見えなくします。
BorderStyleにfmBorderStyleNone
SpecialEffectにfmSpecialEffectFlag
デザインが完了したらフレームA'を切り取って、フレームA内に貼り付けます。

あとはフレームAのScrollイベントに連動してフレームA'のTop Leftを操作してあげれば良いと思います。
基本的な考え方はこんな感じと思います。
もちろん見栄え良く作るには色々調整が必要です。

Comments

[Yoshikun_0945]

フレームのスクロールイベントに連動してという方法がわからないので、教えていただくことは可能でしょうか？

[ttyp03]

すみません、ウソ書いてました。
フレームのScrollWidthとScrollHeightは、スクロールバーの設定ではなく、フレーム内の領域を表すようです。
よってこの値をフレームサイズより大きく取っておくと、スクロールバーの操作によって中身が勝手に移動してくれるようです。
なので、最初に回答したフレームA'は必要なく、フレームA内にコントロールを配置し、あとはScrollWidthとScrollHeightを大きい値で指定しておけばよさそうです。