Excelユーザーフォームのズームフレーム内のコントロールの移動

Question

私は2560 x 1440のモニターでフルスクリーンに収まるサイズのUserform1を持っています。Userform1には、.Widthも2560で、10％に拡大されたFrameAが含まれています。

FrameAには、.Widthが8000、.Leftが1000の子FrameBが含まれます（FrameAズーム座標）。 FrameBは画面上に完全に表示されます。

フレームBの右端がモニタの右端にくるように、フレームBを右に移動したいとします。誰かが私にそれを行うための算術を表示できますか？

Answer 1

私はようやくそれを行う方法を見つけました。

Frame2はズームされたFrame1内に完全に含まれており、右端がFrame1の右側と一致するように右に移動する必要があります。フレーム2の左側をどこに移動する必要がありますか？

Sub move_Frame2_Hard_Right_Inside_Frame1() 
    Dim zoomPct! 
    zoomPct! = Frame1.Zoom/100 
    Frame2.Left = Frame1.Width/zoomPct! - Frame2.Width 
End Sub 

Answer 2

私が欲しかった方法を見てフォームを手に入れることが大変なことを思い出しません。

私は、おそらく動かす必要のない多くのものを動かしてしまいました。しかし、私は最終的に私があなたが探していると信じている効果を得たので、コードを元の場所に戻そうとはしませんでした。

最初のキーの変更があるように思われる：

Property StartUpPosition of UserForm1 = 0 - Manual` 

これなしで、私は完全な利用できる高さにフォームの高さを設定することができませんでした。 .Topを設定しても効果はありません。私は前にこのコマンドを必要とするが、フルスクリーンの高さを明らかにしなかったウィンドウの状態を最大化覚えていません

Application.DisplayFullScreen = True 

：

2番目のキーの変更は、の使用であると思われます。

Sub maximizeWindows()とSub UserForm_initialize()のルーチンを破棄しました。これは、処理が異なるか、コードを移動したためです。私はコードを元に戻すことができると確信していますが、私は試していません。

私は、次のイベントルーチンを使用して新しい制御cmdExit追加：

Private Sub cmdExit_Click() 
    Unload Me 
End Sub 

Sub runDemo()はなっています：

Sub runDemo() 

    Application.DisplayFullScreen = True 

    Load UserForm1 
    With UserForm1 
    .Top = 2 
    .Left = 0 
    .Width = Application.UsableWidth 
    .Height = Application.UsableHeight - 2 
    .Frame1.Move 0, 0, .InsideWidth, 300 
    .Frame2.Left = .Frame1.Left + .Frame1.InsideWidth - .Frame2.InsideWidth 
    .Show 
    End With 

    Application.DisplayFullScreen = False 

End Sub 

上記の効果私のためにした

• のUserForm1 Windowsのタスクバーから離れて画面全体を占めていました。
• フレーム1は画面の全幅を占め、300の高さを有していた。
• フレーム2はフレーム1に右揃えされていた。
• Excelの最大/標準/最小化状態は変更されませんでした。

これはうまくいきます。