Свойство ShapeNode.EditingType (Publisher)
Если указанный узел является вершиной, это свойство возвращает константу MsoEditingType, указывающую , как изменения, внесенные в узел, влияют на два сегмента, подключенные к узлу. Если узел является контрольной точкой для изогнутого сегмента, это свойство возвращает тип редактирования соседней вершины. Только для чтения.
Синтаксис
expression. EditingType
Выражение Переменная, представляющая объект ShapeNode .
Возвращаемое значение
MsoEditingType
Замечания
Используйте метод SetEditingType , чтобы задать значение этого свойства.
Значение свойства EditingType может быть одной из констант MsoEditingType , объявленных в библиотеке типов Microsoft Office.
Пример
В этом примере все угловые узлы изменяются на узлы сглаживания кривой в третьей фигуре активной публикации. Фигура должна быть рисунком свободной формы.
Dim intNode As Integer
With ActiveDocument.Pages(1).Shapes(3).Nodes
For intNode = 1 to .Count
If .Item(intNode).EditingType = msoEditingCorner Then
.SetEditingType Index:=intNode, _
EditingType:=msoEditingSmooth
End If
Next
End With
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.