Método Shapes.Range (Word)

Retorna um objeto ShapeRange que representa as formas dentro de um intervalo.

Sintaxe

expressão. Intervalo (Índice)

expressão Obrigatório. Uma variável que representa um objeto Shapes .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Variant	Especifica quais formas devem ser incluídas no intervalo especificado. Pode ser um número inteiro que especifica o número de índice de uma forma dentro da coleção Shapes, uma cadeia de caracteres que especifica o nome de uma forma ou uma matriz que contém inteiros ou seqüências.

Valor de retorno

ShapeRange

Comentários

Um objeto Shape sempre aparece na mesma página que a página do intervalo ao qual está ancorado.

Observação

A maioria das operações que você pode fazer com que um objeto Shape você também pode fazer com um objeto ShapeRange que contém uma única forma. Algumas operações, quando executadas em um objeto ShapeRange que contém várias formas, gerar um erro.

Exemplo

Este exemplo define a cor de primeiro plano de preenchimento como púrpura para a primeira forma do documento ativo.

Sub ShRange() 
 With ActiveDocument.Shapes.Range(1).Fill 
 .ForeColor.RGB = RGB(255, 0, 255) 
 .Visible = msoTrue 
 End With 
End Sub

Este exemplo adiciona uma sombra à primeira forma do documento ativo.

Sub ShpRange2(strShpName As String) 
 ActiveDocument.Shapes.Range(strShpName).Shadow.Type = msoShadow6 
End Sub

Para chamar a sub-rotina precedente, insira o código a seguir em um módulo de código padrão.

Sub CallShpRange2() 
 Dim shpArrow As Shape 
 Dim strName As String 
 
 Set shpArrow = ActiveDocument.Shapes.AddShape(Type:=msoShapeLeftArrow, _ 
 Left:=200, Top:=400, Width:=50, Height:=75) 
 
 shpArrow.Name = "myShape" 
 strName = shpArrow.Name 
 ShpRange2 strShpName:=strName 
End Sub

Este exemplo seleciona as formas um e três do documento ativo.

Sub SelectShapeRange() 
 ActiveDocument.Shapes.Range(Array(1, 3)).Select 
End Sub

Este exemplo seleciona todas as formas da primeira seção do documento ativo. O exemplo pressupõe que a primeira forma é uma forma de tela.

Sub CanvasShapeRange() 
 Dim rngCanvasShapes As Range 
 Set rngCanvasShapes = ActiveDocument.Shapes(1).CanvasItems.Range(1) 
 rngCanvasShapes.Select 
 rngCanvasShapes.Delete 
End Sub

Confira também

Objeto da coleção Shapes

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.