ListObject.Resize 方法 (2007 system)

项目
09/04/2008

更新：2007 年 11 月

允许在新范围上调整 ListObject 控件的大小。

命名空间： Microsoft.Office.Tools.Excel
程序集： Microsoft.Office.Tools.Excel.v9.0（在 Microsoft.Office.Tools.Excel.v9.0.dll 中）

语法

声明
Public Sub Resize ( _
    Range As Range _
)
用法
Dim instance As ListObject
Dim Range As Range

instance.Resize(Range)

public void Resize(
    Range Range
)

参数

Range
类型：Microsoft.Office.Interop.Excel.Range

列表的新范围。

备注

此属性未插入或移动任何单元格。

标题必须保留在同一行中，得到的列表必须与原始列表重叠。该列表必须包含一个标题行和至少一个数据行。

对于链接到运行 Microsoft Windows SharePoint Services 的服务器的列表，可以调整该列表的大小，方法是提供一个 Range 参数，该参数仅在其所包含的行数方面不同于 ListObject 的当前范围。如果尝试通过（在 Range 参数中）添加或删除列来调整链接到 Windows SharePoint Services 的列表的大小，则将导致运行时错误。

示例

下面的代码示例在当前的工作表上创建一个 ListObject，然后调用 Resize 方法以增大 ListObject 的大小。

此示例针对的是文档级自定义项。

Private Sub ListObject_Resize()
    Dim List1 As Microsoft.Office.Tools.Excel.ListObject = _
        Me.Controls.AddListObject(Me.Range("A1", "D4"), "List1")

    If DialogResult.Yes = MessageBox.Show("Resize the ListObject?", _
        "Test", MessageBoxButtons.YesNo) Then
        List1.Resize(Me.Range("A1", "H4"))
    End If

End Sub

private void ListObject_Resize()
{
    Microsoft.Office.Tools.Excel.ListObject list1 =
        this.Controls.AddListObject(this.Range["A1", "D4"], "list1");

    if (DialogResult.Yes == MessageBox.Show("Resize the ListObject?",
        "Test", MessageBoxButtons.YesNo))
    {
        list1.Resize(this.Range["A1", "H4"]);
    }
}