Метод ShapeNodes.Insert (Excel)

Вставляет узел в фигуру свободной формы.

Синтаксис

expression. Вставка (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

выражение Переменная, представляющая объект ShapeNodes .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Integer	Долго. Номер узла фигуры, после которого вставляется новый узел.
SegmentType	Обязательный	MsoSegmentType	Тип сегмента.
EditingType	Обязательный	MsoEditingType	Тип редактирования.
X1	Обязательный	Single	Если тип EditingType нового сегмента имеет значение msoEditingAuto, этот аргумент указывает горизонтальное расстояние, измеряемое в точках, от левого верхнего угла документа до конечной точки нового сегмента. Если тип Редактирования нового узла имеет значение msoEditingCorner, этот аргумент указывает горизонтальное расстояние, измеряемое в точках, от левого верхнего угла документа до первой контрольной точки для нового сегмента.
Y1	Обязательный	Single	Если тип EditingType нового сегмента имеет значение msoEditingAuto, этот аргумент указывает вертикальное расстояние, измеряемое в точках, от левого верхнего угла документа до конечной точки нового сегмента. Если Тип редактирования нового узла имеет значение msoEditingCorner, этот аргумент задает вертикальное расстояние, измеряемое в точках, от левого верхнего угла документа до первой контрольной точки для нового сегмента.
X2	Обязательный	Single	Если Тип редактирования нового сегмента имеет значение 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.