全部显示

Insert 方法

       

应用于 Range 对象的 Insert 方法。

应用于 Characters 对象的 Insert 方法。

应用于 ShapeNodes 对象的 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