这样试试呢:
Tables("AssemblyTracker_AssemblyTrackPlan").Font = New Font("Arial Narrow", 8.25, FontStyle.Regular)
字体的类型为Font,定义一个字体的语法为:
Dim 变量名 As New Font(Name, Size, Style)
Name: 字体名称。
Size: 字体大小,单位为磅。
Style: 可选参数,字体样式,FontStyle型枚举。
下面是FontStyle型枚举的可选值:
Bold: 加粗。
Italic: 倾斜。
Regular: 普通。
Strikeout: 中间有直线通过。
Underline: 带下划线。
[此贴子已经被作者于2024/5/30 14:17:47编辑过]