在Excel VBA中修改UserForm标题字体样式（大小、颜色、字体类型等），由于UserForm的标题栏本身没有直接提供修改字体样式的属性，但可以通过API函数来实现。以下是一个示例代码，展示如何修改UserForm标题字体的大小、颜色和字体类型： ```vba Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal nHeight As Long, ByVal nWidth As Long, ByVal nEscapement As Long, ByVal nOrientation As Long, ByVal fnWeight As Long, ByVal fdwItalic As Byte, ByVal fdwUnderline As Byte, ByVal fdwStrikeOut As Byte, ByVal fdwCharSet As Byte, ByVal fdwOutputPrecision As Byte, ByVal fdwClipPrecision As Byte, ByVal fdwQuality As Byte, ByVal fdwPitchAndFamily As Byte, ByVal lpFaceName As String) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Const WM_SETFONT = &H30 Private Const GWL_STYLE = (-16) Private Const WS_CAPTION = &HC00000 Sub ModifyUserFormCaptionFont() Dim hFont As Long Dim hWnd As Long Dim oldStyle As Long ' 获取UserForm的句柄 hWnd = UserForm1.hwnd ' 创建新的字体 hFont = CreateFont(20, 0, 0, 0, 700, 0, 0, 0, 0, 0, 0, 0, 0, "Arial") ' 设置标题栏字体 Call SendMessage(hWnd, WM_SETFONT, hFont, ByVal True) ' 释放字体对象 Call DeleteObject(hFont) End Sub ``` ### 代码解释： 1. **API函数声明**：使用`Declare`语句声明了多个API函数，用于与Windows系统进行交互，如`SendMessage`用于发送消息，`CreateFont`用于创建字体，`DeleteObject`用于释放字体对象等。 2. **常量定义**：定义了一些常量，如`WM_SETFONT`用于设置字体的消息，`GWL_STYLE`用于获取或设置窗口样式，`WS_CAPTION`表示窗口标题栏样式。 3. **`ModifyUserFormCaptionFont`子程序**： - 获取UserForm的句柄。 - 使用`CreateFont`函数创建一个新的字体，这里设置字体大小为20，字体类型为Arial，字体加粗（权重为700）。 - 使用`SendMessage`函数将新字体应用到UserForm的标题栏。 - 最后使用`DeleteObject`函数释放字体对象，避免内存泄漏。 ### 使用方法： 1. 打开Excel，按下`Alt + F11`打开VBA编辑器。 2. 插入一个新的UserForm（如果还没有的话）。 3. 在VBA编辑器中插入一个新的模块。 4. 将上述代码复制到模块中。 5. 在UserForm的代码窗口中，可以调用`ModifyUserFormCaptionFont`子程序来修改标题字体样式。例如，在UserForm的`Initialize`事件中调用： ```vba Private Sub UserForm_Initialize() ModifyUserFormCaptionFont End Sub ``` 这样，当UserForm初始化时，标题字体样式就会被修改。