Свойство Shape.Child (Word)

Значение true , если фигура является дочерней фигурой или если все фигуры в диапазоне фигур являются дочерними фигурами одного родительского элемента. MsoTriState, доступный только для чтения.

Синтаксис

expression. Ребенка

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

Пример

В этом примере выбирается первая фигура на холсте, и если выбранная фигура является дочерней фигурой, заполняет фигуру указанным цветом. В этом примере предполагается, что первая фигура в активном документе является холстом, содержащим несколько фигур.

Sub FillChildShape() 
 
 Dim shpCanvasItem As Shape 
 
 'Select the first shape in the drawing canvas 
 Set shpCanvasItem = ActiveDocument.Shapes(1).CanvasItems(1) 
 
 'Fill selected shape if it is a child shape 
 With shpCanvasItem 
 If .Child = msoTrue Then 
 .Fill.ForeColor.RGB = RGB(100, 0, 200) 
 Else 
 MsgBox "This shape is not a child shape." 
 End If 
 End With 
 
End Sub

См. также

Объект Shape

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

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