Propriedade Selection.ShapeRange (Publisher)

Devolve uma coleção ShapeRange que representa todos os objetos da Forma no intervalo ou seleção especificado. Este intervalo de formas pode conter desenhos, formas, imagens, objetos OLE, controles ActiveX, objetos de texto e textos explicativos.

Sintaxe

expressão. ShapeRange

expressão Uma variável que representa um objeto De seleção .

Valor de retorno

ShapeRange

Exemplo

O exemplo a seguir define o padrão de preenchimento de todas as formas na seleção. Este exemplo pressupõe que uma ou mais formas estão selecionadas na publicação ativa.

Sub ChangeFillForShapeRange() 
 Selection.ShapeRange.Fill.Patterned Pattern:=msoPattern20Percent 
End Sub

O exemplo a seguir aplica a sombra e a formatação de preenchimento de todas as formas na seleção. Este exemplo pressupõe que uma ou mais formas estão selecionadas na publicação ativa.

Sub SetShadowForSelectedShapes() 
 With Selection.ShapeRange 
 .Shadow.Type = msoShadow6 
 .Fill.Patterned Pattern:=msoPatternDottedDiamond 
 End With 
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.