Excel VBA ListView 标题粗体

Question

我是 VBA 新手，正在努力使我的 ListView（名为“lvRec”）标题仅粗体。

ListView 位于用户窗体中，Excel 从当前工作簿“MySales”表填充。 请问如何设置标题格式？

Private Sub UserForm_Activate()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim lv As ListItem
    Dim i As Integer, n As Integer

    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set tbl = ws.ListObjects("MySales")

    With Me.lvRec
        .Gridlines = True
        .HoverSelection = True
        .View = lvwReport
    
    End With
    
    
    'Add column headers
    For i = 1 To tbl.ListColumns.Count
        Me.lvRec.ColumnHeaders.Add , , tbl.ListColumns(i).Name

    Next i

    
    With tbl.Range
        For i = 2 To .Rows.Count
            Set lv = Me.lvRec.ListItems.Add(, , tbl.Range.Cells(i, 1).Text)
            For n = 2 To .Columns.Count
                lv.ListSubItems.Add , , tbl.Range.Cells(i, n).Text
            Next n
        Next i
    End With


End Sub

我在网上搜索过，但无法应用我所找到的内容。他们提到了“字体”属性，但我无法将其称为标题。

Answer 1

尝试创建 ColumnHeader 变量，然后向其中添加 Font 属性：

For i = 1 To tbl.ListColumns.Count
    Dim header As ColumnHeader
    Set header = Me.lvRec.ColumnHeaders.Add(, , tbl.ListColumns(i).Name)
    header.Font.Bold = True
Next i