Form.DatasheetFontHeight プロパティ (Access)

DatasheetFontHeight プロパティを使用して、データシート ビューでフィールド名とデータの表示と印刷に使用するフォント ポイント サイズを指定します。 値の取得および設定が可能です。整数型 (Integer) の値を使用します。

構文

式。DatasheetFontHeight

expressionForm オブジェクトを表す変数です。

注釈

このプロパティは Microsoft Office Access データベースでのみ使用可能です。

DatasheetFontHeight プロパティで指定するフォント サイズは、DatasheetFontName プロパティで指定されているフォントに対して有効である必要があります。 たとえば、MS Sans Serif の場合は、8、10、12、14、18、および 24 ポイントのみが使用可能です。

次の表には、[書式設定 (データシート)] ツールバーを使用して設定するまで DAO プロパティ コレクションに存在しないプロパティが含まれています。または、CreateProperty メソッドを使用して Access データベース (.mdb) に追加し、DAO プロパティ コレクションに追加することもできます。

プロパティ 続くプロパティ
DatasheetFontItalic * DatasheetForeColor *
DatasheetFontHeight * DatasheetBackColor
DatasheetFontName * DatasheetGridlinesColor
DatasheetFontUnderline * DatasheetGridlinesBehavior
DatasheetFontWeight * DatasheetCellsEffect

注:

この表のアスタリスク付きのプロパティのいずれかを設定すると、そのプロパティはデータベースの Properties コレクションに自動的に追加されます。

例

次の例では、[ 製品 ] テーブルのデータシート ビューで、フォントを MS Serif、フォント サイズを 10 ポイント、フォントの太さを中 (500) に設定します。

Sub SetDatasheetFont 
 
 Dim dbs As Object, objProducts As Object 
 Set dbs = CurrentDb 
 Const DB_Text As Long = 10 
 Const DB_Integer As Long = 3 
 Set objProducts = dbs!Products 
 
 SetTableProperty objProducts, "DatasheetFontName", DB_Text, "MS Serif" 
 SetTableProperty objProducts, "DatasheetFontHeight", DB_Integer, 10 
 SetTableProperty objProducts, "DatasheetFontWeight", DB_Integer, 500 
 
End Sub 

Sub SetTableProperty(objTableObj As Object, strPropertyName As String, _ 
 intPropertyType As Integer, varPropertyValue As Variant) 
 ' Set Microsoft Access-defined table property without causing 
 ' nonrecoverable run-time error. 
 Const conErrPropertyNotFound = 3270 
 Dim prpProperty As Variant 
 On Error Resume Next ' Don't trap errors. 
 objTableObj.Properties(strPropertyName) = varPropertyValue 
 If Err <> 0 Then ' Error occurred when value set. 
 If Err <> conErrPropertyNotFound Then 
 On Error GoTo 0 
 MsgBox "Couldn't set property '" & strPropertyName _ 
 & "' on table '" & objTableObj.Name & "'", 48, "SetTableProperty" 
 Else 
 On Error GoTo 0 
 Set prpProperty = objTableObj.CreateProperty(strPropertyName, _ 
 intPropertyType, varPropertyValue) 
 objTableObj.Properties.Append prpProperty 
 End If 
 End If 
 objTableObj.Properties.Refresh 
End Sub

次の例では、開いている [製品 ] フォームのデータシート ビューで前の例と同じ変更を加えます。

Forms!Products.DatasheetFontName = "MS Serif" 
Forms!Products.DatasheetFontHeight = 10 
Forms!Products.DatasheetFontWeight = 500

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on