共用方式為

Access (的 Form.DatasheetFontHeight 屬性)

  • 發行項

使用 DatasheetFontHeight 屬性來指定字型大小，用來在 [資料工作表檢視] 中顯示和列印功能變數名稱和資料。 可讀寫的 Integer。

語法

運算式。DatasheetFontHeight

expression 代表 Form 物件的變數。

註解

此屬性僅可用於 Microsoft Access 資料庫。

針對 DatasheetFontHeight 屬性，您指定的字型大小必須適用于 DatasheetFontName 屬性所指定的字型。 例如，新細明體是只適用於大小 8、 10、 12、 14、 18 和 24 點。

下表包含 DAO Properties 集合中不存在的屬性，直到您使用 [格式化 (資料工作表]) 工具列加以設定，或者您可以使用 CreateProperty 方法將它們新增至 Access 資料庫 (.mdb) ，並將它附加至 DAO Properties 集合。

屬性 屬性繼續
DatasheetFontItalic * DatasheetForeColor *
DatasheetFontHeight * DatasheetBackColor
DatasheetFontName * DatasheetGridlinesColor
DatasheetFontUnderline * DatasheetGridlinesBehavior
DatasheetFontWeight * DatasheetCellsEffect

注意事項

[!注意事項] 當您新增或設定任何加有星號的屬性時，Microsoft Access 會自動新增所有加有星號至資料庫的 Properties 集合的屬性。

範例

下列範例會在 Products 資料表的資料 工作表檢視中，將字型設定為 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

下列範例會 在開啟 的 Products 表單的 [資料工作表檢視] 中，進行與上述範例相同的變更。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。