Propriedade ShapeRange.Child (Excel)

Retorna msoTrue se a forma especificada for uma forma filha ou se todas as formas em um intervalo de formas forem formas filhas de um mesmo pai. Devolve msoFalse se a forma selecionada não for uma forma subordinada. Devolve msoTriStateMixed se apenas algumas das formas selecionadas forem formas subordinadas. MsoTriState só de leitura.

Sintaxe

expressão. Subordinado

expressão Uma variável que representa um objeto ShapeRange .

Exemplo

Este exemplo seleciona a primeira forma na tela e, se a forma selecionada for uma forma filha, preenche-a com a cor especificada. O exemplo supõe que uma tela de desenho contenha várias formas na planilha ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.