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