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.