Microsoft Access 掲示板

標準もモジュールに下記のような関数を作成します。

Public Sub CtlVCenter(ReportName As String, ControlName As String)
    DoCmd.OpenReport ReportName, acViewDesign
    
    Dim R As Access.Report
    Set R = Reports(ReportName)
    
    Dim C As Access.Control
    Set C = R.Controls(ControlName)
    
    C.Top = (R.Section(C.Section).Height / 2) - (C.Height / 2)
End Sub

イミディエイトウィンドウで下記のように記述してEnterキーを押します。

Call CtlVCenter("レポート名", "コントロール名")

これで、レポートがデザインビューで開いて、指定したコントロールがセクションの上下中央位置に移動します。
デザインビューを確認して問題なければ保存して閉じれば完了です。