Compartilhar via


Propriedade Selection.ChildShapeRange (Publisher)

Retorna um objeto ShapeRange representando as formas filhas em uma seleção.

Sintaxe

expressão. ChildShapeRange

Expressão Uma variável que representa um objeto Selection .

Valor de retorno

ShapeRange

Exemplo

Este exemplo cria uma nova página na publicação ativa, preenche a página com formas e seleciona e agrupa as formas. Depois de cancelar a seleção de duas formas de grupo, ela altera o tipo AutoShape para uma das formas.

Sub ChangeFillToChildShape() 
 
 With ThisDocument.Pages(1) 
 With .Shapes 
 .AddShape msoShape4pointStar, 10, 10, 175, 175 
 .AddShape msoShapeOval, 100, 100, 175, 75 
 .AddShape msoShapeOval, 150, 150, 175, 75 
 .Range.Group 
 .SelectAll 
 End With 
 .Shapes(1).GroupItems(1).Select msoFalse 
 .Shapes(1).GroupItems(2).Select msoFalse 
 End With 
 
 Selection.ChildShapeRange(3).AutoShapeType = msoShapeDiamond 
 
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.