在工作表或宏表中插入一个单元格或单元格区域,其他单元格作相应移位以腾出空间。
expression.Insert(Shift, CopyOrigin)
expression 必需。该表达式返回一个 Range 对象。
Shift Variant 类型,可选。指定单元格的移动方向。可为以下 XlInsertShiftDirection 常量之一:xlShiftToRight 或 xlShiftDown。如果省略本参数,Microsoft Excel 将依据该区域的形状决定移动方向。
CopyOrigin Variant 类型,可选。复制的起点。
在选定字符前面插入字符串。
expression.Insert(String)
expression 必需。该表达式返回一个 Characters 对象。
String String 类型,必需。要插入的字符串。
在任意多边形中插入一个节点。
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,那么请不要指定本参数的值。
本示例选择活动文档的第三个图形,检查该图形是否是一个 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