Form.InsideHeight プロパティ (Access)

InsideHeight プロパティ (InsideWidth プロパティと共に) を使用して、フォームを含むウィンドウの高さと幅 (twip 単位) を決定します。 読み取り/書き込みが可能な Long です。

構文

InsideHeight

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 のサポートおよびフィードバックを参照してください。