设置文字样式中字体的定义数据。

参阅 | 示例

语法

RetVal = object.SetFont(Typeface, Bold, Italic, CharSet, PitchAndFamily)

Object

TextStyle
使用该方法的对象。

Typeface

String[字符串]; 仅用于输入
字体的字样（字体名称）。

Bold

Boolean[布尔值]; 仅用于输入
设置 TextStyle 字体是否加粗。

TRUE: TextStyle 字体加粗。

FALSE: TextStyle 字体不加粗。

Italic

Boolean[布尔值]; 仅用于输入
设置 TextStyle 字体是否为斜体。

TRUE: TextStyle 字体为斜体。

FALSE: TextStyle 字体不为斜体。

CharSet

Long[长整数]; 仅用于输入
字体的字符集（查看说明中的有效值）。

PitchAndFamily

Long[长整数]; 仅用于输入
字体的字宽和语系定义（查看说明中的有效值）。

说明

本部分提供了该方法中用到的常量定义。用这些常数，可复制所需的定义并将它们粘贴在程序中需声明的地方。完整的Microsoft可用的常量列表可在 win32api.txt 文件中找到，它是由 Visual Basic 开发环境提供的。

CharSet 参数指定了字体的字符集。如需要在 VB 或 VBA程序中使用以下常数，可将这些定义复制到代码的声明段。

Public Const ANSI_CHARSET = 0
Public Const DEFAULT_CHARSET = 1
Public Const SYMBOL_CHARSET = 2
Public Const SHIFTJIS_CHARSET = 128
Public Const OEM_CHARSET = 255

PitchAndFamily 参数指定了字体的字宽及语系值。此值由3个不同设置共同决定。从三类中为每一类选择一个设置后用布尔操作符 OR 来连结，就可以获得PitchAndFamily 值。前两类的设置是必须的：字宽和语系。第三类 TrueType 标志只有在指定一个TrueType字体时才用到。

如需要在 VB 或 VBA程序中使用以下常数，可将这些定义复制到代码的声明段。

' 字宽值
Public Const DEFAULT_PITCH = 0	'  默认字宽。
Public Const FIXED_PITCH = 1	'  固定字宽。
Public Const VARIABLE_PITCH = 2	'  可变字宽。

' 语系值
Public Const FF_DONTCARE = 0    '  忽略或不知道。
Public Const FF_ROMAN = 16      '  可变的笔划宽度，衬线。
Public Const FF_SWISS = 32      '  可变的笔划宽度，无衬线。
Public Const FF_MODERN = 48     '  固定笔划宽度，可有衬线可无衬线
Public Const FF_SCRIPT = 64     '  草写体等
Public Const FF_DECORATIVE = 80 '  旧式英语等

' TrueType 标志
Public Const TMPF_TRUETYPE = &H4