Excel VBA Auto Resize ListView Columns

Я нашел код, чтобы изменить размер столбцов ListViews на основе самой длинной строки в элементах столбца, но я хотел бы изменить его, чтобы он также учитывал длину имени столбца, а также для изменения размера. У меня есть несколько столбцов, где самая длинная строка – это имя столбца.

Я искал во всем Google, чтобы попытаться понять это, но я действительно не понимаю используемый здесь API.

Расширение этого вопроса также было бы тем, что LVM_FIRST делает LVM_FIRST , я не мог найти ничего в моих поисках.

• Как я могу экспортировать данные из listview в excel и pdf в VB.NET
• Excel VBA ListView.ListItem.Selected Property
• ListView не экспортирует данные правильно в Excel
• Загрузка нескольких элементов из листа excel в listview c #
• Недостающее значение при экспорте списка в файл xls в c #

Декларация:

 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 Const LVM_FIRST = &H1000 

Sub:

 Public Sub LV_AutoSizeColumn(LV As ListView, Optional Column _ As ColumnHeader = Nothing) Dim C As ColumnHeader If Column Is Nothing Then For Each C In LV.ColumnHeaders SendMessage LV.hWnd, LVM_FIRST + 30, C.Index - 1, -1 Next Else SendMessage LV.hWnd, LVM_FIRST + 30, Column.Index - 1, -1 End If LV.Refresh End Sub