Compartilhar via

Propriedade Selection.ShapeRange (Publisher)

  • Artigo

Retorna uma coleção ShapeRange que representa todos os objetos Shape no intervalo ou seleção especificados. 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 Selection .

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 sejam 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 sejam 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.