Form.InsideWidth プロパティ (Access)
InsideWidth プロパティ (InsideHeight プロパティと共に) を使用して、フォームを含むウィンドウの高さと幅 (twip 単位) を決定します。 読み取り/書き込みが可能な Long です。
構文
式。InsideWidth
expressionForm オブジェクトを表す変数です。
注釈
フォーム自体の内部寸法を決定する場合は、 Width プロパティを使用してフォームの幅を決定し、フォームの表示セクションの高さの合計を使用して高さを決定します ( Height プロパティはフォームセクションにのみ適用され、フォームには適用されません)。 フォームの内部は、スクロール バーとレコード セレクターを除く、フォーム内の領域です。
WindowHeight および WindowWidth プロパティを使用して、フォームを含むウィンドウの高さと幅を指定することもできます。
ウィンドウを最大化した場合は、通常の大きさに復元するとこのプロパティが有効になります。
例
次の使用例では、InsideHeight プロパティと InsideWidth プロパティを使用して、フォーム内部の高さおよび幅と、フォームのウィンドウの高さおよび幅を比較しています。 ウィンドウのサイズがフォームのサイズと等しくない場合は、フォームの高さと幅に合わせてウィンドウのサイズが変更されます。
Sub ResetWindowSize(frm As Form)
Dim intWindowHeight As Integer
Dim intWindowWidth As Integer
Dim intTotalFormHeight As Integer
Dim intTotalFormWidth As Integer
Dim intHeightHeader As Integer
Dim intHeightDetail As Integer
Dim intHeightFooter As Integer
' Determine form's height.
intHeightHeader = frm.Section(acHeader).Height
intHeightDetail = frm.Section(acDetail).Height
intHeightFooter = frm.Section(acFooter).Height
intTotalFormHeight = intHeightHeader _
+ intHeightDetail + intHeightFooter
' Determine form's width.
intTotalFormWidth = frm.Width
' Determine window's height and width.
intWindowHeight = frm.InsideHeight
intWindowWidth = frm.InsideWidth
If intWindowWidth <> intTotalFormWidth Then
frm.InsideWidth = intTotalFormWidth
End If
If intWindowHeight <> intTotalFormHeight Then
frm.InsideHeight = intTotalFormHeight
End If
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示