NamedRange.Insert 方法

在 NamedRange 控件中插入一个单元格或某一范围的单元格，并移走其他单元格以腾出空间。

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

语法

声明
Function Insert ( _
    Shift As Object, _
    CopyOrigin As Object _
) As Object

Object Insert(
    Object Shift,
    Object CopyOrigin
)

参数

• Shift
  类型：System.Object
  指定单元格的移动方向。可以是下列 XlInsertShiftDirection 值之一：xlShiftToRight 或 xlShiftDown。如果省略此参数，则 Microsoft Office Excel 基于该范围的形状进行确定。

• CopyOrigin
  类型：System.Object
  XlInsertFormatOrigin 值之一，用于指定在何处获取要应用于新单元格的格式。

返回值

类型：System.Object

备注

可选参数

有关可选参数的信息，请参见Office 解决方案中的可选参数。

示例

下面的代码示例设置单元格 A1 至 A3 的值，然后使用 Insert 方法向名为 NamedRange1 的 NamedRange 控件中插入空单元格（设置为单元格 A1）。 此操作将该范围中的单元格下移，这意味着 NamedRange1 现在设置为单元格 A2。 为了演示此操作，该示例将 NamedRange1 的值设置为 Raven，该值显示在单元格 A2 中。

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

    Private Sub InsertIntoRange()
        Me.Range("A1").Value2 = "Robin"
        Me.Range("A2").Value2 = "Sparrow"
        Me.Range("A3").Value2 = "Crow"

        Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
            = Me.Controls.AddNamedRange(Me.Range("A1"), _
            "namedRange1")

        namedRange1.Insert(Excel.XlInsertShiftDirection.xlShiftDown, )
        namedRange1.Value2 = "Raven"
    End Sub

private void InsertIntoRange()
{
    this.Range["A1", missing].Value2 = "Robin";
    this.Range["A2", missing].Value2 = "Sparrow";
    this.Range["A3", missing].Value2 = "Crow";

    Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
        this.Controls.AddNamedRange(this.Range["A1", missing],
        "namedRange1");

    namedRange1.Insert(Excel.XlInsertShiftDirection.xlShiftDown, missing);
    namedRange1.Value2 = "Raven";
}

.NET Framework 安全性

• 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息，请参见通过部分受信任的代码使用库。

请参见

参考

NamedRange 接口

Microsoft.Office.Tools.Excel 命名空间