Vba 使用ListObjects（1）.ListColumns时如何设置列宽？

这是违规代码

Sub DoStuff()

  Dim objSheet As Worksheet
  Dim objStr As String

  Set objSheet = ActiveSheet
  objStr = objSheet.ListObjects(1).Name
  If objStr = "TaskTable" Then
     With objSheet.ListObjects(1)   ' Format for Tasks
        .ListColumns.Add Position:=3
        .HeaderRowRange(3) = "Status Image"  
        'Resize here

---

问题是，我无法找到为列表对象中的特定列设置列宽的属性/方法/其他。

找到要查找的属性的一个好方法是在代码中设置断点（在IDE中最左边的灰色列中单击鼠标左键），并在调试期间使用“局部变量”窗口

例如，如果在

.headerrorrange（3）=“Status Image”

行设置断点，并且运行代码，代码将在该行停止。打开“局部变量”窗口（查看，然后是局部变量）。您必须向下钻取一点，但在objSheet下，您将看到正在使用的所有属性，包括ListObjects。深入查看ListObjects、Item1（代码中的TaskTable）、ListColumns、Item3（代码中添加的列）、Range和ColumnWidth，您将看到可以使用的属性（作为变量或双精度属性）

若要在代码中插入，请在此处添加以下内容以代替

“调整大小”

注释：

.ListColumns(3).Range.ColumnWidth = x

---

其中“x”是列的大小。有关ColumnWidth属性的更多信息，请参见。

查找您要查找的属性的一个好方法是在代码中设置断点（在IDE中最左侧的灰色列中单击鼠标左键），并在调试期间使用“局部变量”窗口

With ActiveSheet.ListObjects("Table Name")
   .ListColumns.Add(3).Name = "Status Image"
   .ListColumns("Status Image").Range.Columns.AutoFit
End With

例如，如果在

.headerrorrange（3）=“Status Image”

行设置断点，并且运行代码，代码将在该行停止。打开“局部变量”窗口（查看，然后是局部变量）。您必须向下钻取一点，但在objSheet下，您将看到正在使用的所有属性，包括ListObjects。深入查看ListObjects、Item1（代码中的TaskTable）、ListColumns、Item3（代码中添加的列）、Range和ColumnWidth，您将看到可以使用的属性（作为变量或双精度属性）

若要在代码中插入，请在此处添加以下内容以代替

“调整大小”

注释：

.ListColumns(3).Range.ColumnWidth = x

---

其中“x”是列的大小。有关ColumnWidth属性的更多信息，请参见。

查找您要查找的属性的一个好方法是在代码中设置断点（在IDE中最左侧的灰色列中单击鼠标左键），并在调试期间使用“局部变量”窗口

With ActiveSheet.ListObjects("Table Name")
   .ListColumns.Add(3).Name = "Status Image"
   .ListColumns("Status Image").Range.Columns.AutoFit
End With

例如，如果在

.headerrorrange（3）=“Status Image”

行设置断点，并且运行代码，代码将在该行停止。打开“局部变量”窗口（查看，然后是局部变量）。您必须向下钻取一点，但在objSheet下，您将看到正在使用的所有属性，包括ListObjects。深入查看ListObjects、Item1（代码中的TaskTable）、ListColumns、Item3（代码中添加的列）、Range和ColumnWidth，您将看到可以使用的属性（作为变量或双精度属性）

若要在代码中插入，请在此处添加以下内容以代替

“调整大小”

注释：

.ListColumns(3).Range.ColumnWidth = x

---

其中“x”是列的大小。有关ColumnWidth属性的更多信息，请参见。

查找您要查找的属性的一个好方法是在代码中设置断点（在IDE中最左侧的灰色列中单击鼠标左键），并在调试期间使用“局部变量”窗口

With ActiveSheet.ListObjects("Table Name")
   .ListColumns.Add(3).Name = "Status Image"
   .ListColumns("Status Image").Range.Columns.AutoFit
End With

例如，如果在

.headerrorrange（3）=“Status Image”

行设置断点，并且运行代码，代码将在该行停止。打开“局部变量”窗口（查看，然后是局部变量）。您必须向下钻取一点，但在objSheet下，您将看到正在使用的所有属性，包括ListObjects。深入查看ListObjects、Item1（代码中的TaskTable）、ListColumns、Item3（代码中添加的列）、Range和ColumnWidth，您将看到可以使用的属性（作为变量或双精度属性）

若要在代码中插入，请在此处添加以下内容以代替

“调整大小”

注释：

.ListColumns(3).Range.ColumnWidth = x

---

其中“x”是列的大小。有关ColumnWidth属性的更多信息，请参阅。

使用自动调整属性

With ActiveSheet.ListObjects("Table Name")
   .ListColumns.Add(3).Name = "Status Image"
   .ListColumns("Status Image").Range.Columns.AutoFit
End With

---

使用“自动拟合”属性

With ActiveSheet.ListObjects("Table Name")
   .ListColumns.Add(3).Name = "Status Image"
   .ListColumns("Status Image").Range.Columns.AutoFit
End With

---

使用“自动拟合”属性

With ActiveSheet.ListObjects("Table Name")
   .ListColumns.Add(3).Name = "Status Image"
   .ListColumns("Status Image").Range.Columns.AutoFit
End With

---

使用“自动拟合”属性

With ActiveSheet.ListObjects("Table Name")
   .ListColumns.Add(3).Name = "Status Image"
   .ListColumns("Status Image").Range.Columns.AutoFit
End With

objSheet.Columns（1）.ColumnWidth=size

objSheet.Columns（objSheet.ListObjects（1）.ListColumns（3）.Range.Column）.ColumnWidth=size

objSheet.Columns（1）.ColumnWidth=size

objSheet.ListObjects（1）.ListColumns（3）.Range.Column）.ColumnWidth=size

objSheet.Columns（1）.Columns

objSheet.Columns（objSheet.ListObjects（1）.ListColumns（3）.Range.Column）.ColumnWidth=size

objSheet.Columns（1）.ColumnWidth=size

objSheet.Columns（objSheet.ListObjects（1）.ListColumns（3）.Range.Column）.ColumnWidth=size