Excel VBA教程:Insert方法

应用于 Range对象的 Insert方法。

在工作表或宏表中插入一个单元格或单元格区域,其他单元格作相应移位以腾出空间。

expression.Insert(Shift, CopyOrigin)

expression   必需。该表达式返回一个 Range对象。

Shift   Variant 类型,可选。指定单元格的移动方向。可为以下 XlInsertShiftDirection 常量之一:xlShiftToRight 或 xlShiftDown。如果省略本参数,Microsoft Excel 将依据该区域的形状决定移动方向。

CopyOrigin   Variant 类型,可选。复制的起点。

应用于 Characters对象的 Insert方法。

在选定字符前面插入字符串。

expression.Insert(String)

expression   必需。该表达式返回一个 Characters对象。

String   String 类型,必需。要插入的字符串。

应用于 ShapeNodes对象的 Insert方法。

在任意多边形中插入一个节点。

expression.Insert(Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

expression   必需。该表达式返回一个 ShapeNodes对象。

Index   Long 类型,必需。要在其后插入新节点的图形节点号。

SegmentType   MsoSegmentType 类型,必需。线段类型。

MsoSegmentType 可为以下 MsoSegmentType 常量之一。
msoSegmentCurve
msoSegmentLine

EditingType  MsoEditingType 类型,必需。编辑的类型。

MsoEditingType 可为以下 MsoEditingType 常量之一。
msoEditingAuto
msoEditingCorner
msoEditingSmooth
msoEditingSymmetric

X1   Single 类型,必需。如果新线段的 EditingType 为 msoEditingAuto,那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的水平距离。如果新节点的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第一个控制点之间的水平距离。

Y1   Single 类型,必需。如果新线段的 EditingType 为 msoEditingAuto,那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的垂直距离。如果新节点的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第一个控制点之间的垂直距离。

X2   Single 类型,可选。如果新线段的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第二个控制点之间的水平距离。如果新线段的 EditingType 为 msoEditingAuto,那么请不要指定本参数的值。

Y2   Single 类型,可选。如果新线段的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第二个控制点之间的垂直距离。如果新线段的 EditingType 为 msoEditingAuto,那么请不要指定本参数的值。

X3   Single 类型,可选。如果新线段的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的水平距离。如果新线段的 EditingType 为 msoEditingAuto,那么请不要指定本参数的值。

Y3   Single 类型,可选。如果新线段的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的垂直距离。如果新线段的 EditingType 为 msoEditingAuto,那么请不要指定本参数的值。

Excel VBA教程:Insert方法·示例

本示例选择活动文档的第三个图形,检查该图形是否是一个 Freeform对象,如果是,则插入一个节点。本示例假定在活动工作表中存在三种图形。


Sub InsertShapeNode()
    ActiveSheet.Shapes(3).Select
    With Selection.ShapeRange
        If .Type = msoFreeform Then
            .Nodes.Insert _
                Index:=3, SegmentType:=msoSegmentCurve, _
                EditingType:=msoEditingSymmetric, X1:=35, Y1:=100
            .Fill.ForeColor.RGB = RGB(0, 0, 200)
            .Fill.Visible = msoTrue
        Else
            MsgBox "This shape is not a Freeform object."
        End If
    End With
End Sub

上页:Excel VBA教程:InputBox方法 下页:Excel VBA教程:InsertIndent方法

Excel VBA教程:Insert方法

Excel VBA教程:InsertIndent方法 Excel VBA教程:Intersect方法
Excel VBA教程:Item方法 Excel VBA教程:Justify方法
Excel VBA教程:LargeScroll方法 Excel VBA教程:LegendEntries方法
Excel VBA教程:LineGroups方法 Excel VBA教程:LinkInfo方法
Excel VBA教程:LinkSources方法 Excel VBA教程:List方法
Excel VBA教程:ListFormulas方法 Excel VBA教程:ListNames方法
Excel VBA教程:Location方法 Excel VBA教程:MacroOptions方法
Excel VBA教程:MailLogoff方法 Excel VBA教程:MailLogon方法
Excel VBA教程:MakeConnection方法 Excel VBA教程:Merge方法
Excel VBA教程:MergeWorkbook方法 Excel VBA教程:Modify方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号