Свойство 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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.