Поделиться через

Свойство ShapeRange.Child (Excel)

  • Статья

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

Синтаксис

expression. Ребенка

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

Пример

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

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

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

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