Objeto ShapeRange (Project)
Representa um intervalo de formas, que é uma coleção de uma ou mais formas em um relatório.
Comentários
O Project usa a mesma infraestrutura do Office Art que outros aplicativos do Office usam e adapta o Office Art a relatórios, tabelas e gráficos que podem usar campos no projeto ativo. No entanto, o Project não implementa todas as operações shaperange . Por exemplo, o Project não dá suporte a alinhamento automático, distribuição, agrupamento ou mesclagem de formas em um intervalo de formas.
Um intervalo de formas pode conter uma única forma ou todas as formas no relatório. Você pode incluir as formas que desejar construir um intervalo de formas. Por exemplo, você pode construir uma coleção ShapeRange que contém as três primeiras formas em um relatório, todas as formas em um relatório ou apenas as formas de triângulo.
[!OBSERVAçãO] Maioria das operações que você pode fazer com um objeto Shape, você também pode fazer com um objeto ShapeRange que contenha apenas uma forma. Algumas operações, quando executadas em um objeto ShapeRange que contém mais de uma forma, formas de tipos diferentes ou uma forma que não tem suporte total no Project, podem causar um erro. Por exemplo, se um intervalo de forma contiver um retângulo e um gráfico e você tentar definir a propriedade Fill , a instrução falhará porque um gráfico não implementa a propriedade Fill . Em outros casos, por exemplo, se você usar a propriedade Rotation em um intervalo de formas que contém um gráfico e um retângulo, o Project gira o retângulo, mas ignora silenciosamente o gráfico.
Exemplos
Você pode retornar um conjunto de formas especificadas pelo número de índice ou pelo nome da forma. Use Shapes.Range(index), em que o índice é uma matriz de números ou nomes de índice. Por exemplo, ambas as instruções a seguir são válidas:
Set myRange1 = theReport.Shapes.Range(Array(1, 2))
Set myRange2 = theReport.Shapes.Range(Array("Textbox 1", "Textbox 2"))
Para criar um objeto ShapeRange que contenha todas as formas no relatório, use uma instrução como a seguinte:
Set allShapes = theReport.Shapes.Range(Array(1, theReport.Shapes.Count))
Para criar um objeto ShapeRange com um único membro da coleção Shapes , você pode usar instruções como a seguinte:
Set myRange3 = theReport.Shapes.Range(2)
Set myRange4 = theReport.Shapes.Range("Rectangle 2")
Para executar uma operação em uma única forma em uma coleção ShapeRange , você pode usar instruções como a seguinte:
myRange1(2).Fill.ForeColor.RGB = RGB(120, 120, 80)
myRange1("Textbox 2").Fill.ForeColor.RGB = RGB(120, 120, 80)
Como alternativa, você pode executar uma operação diretamente em um objeto Shape , sem usar um intervalo de formas.
theReport.Shapes("Big rectangle").Fill.ForeColor.RGB = RGB(120, 120, 80)
Métodos
| Descrição |
|---|
| O método Align não é implementado no Project. |
| Aplica a formatação a um intervalo de formas, em que as informações de formatação foram copiadas usando o método PickUp . |
| Copia o intervalo de formas para a Área de Transferência. |
| Corta o intervalo de formas para a Área de Transferência. |
| Exclui o intervalo de formas. |
| O método Distribuir não é implementado no Project. |
| Duplica um intervalo de formas e retorna uma referência à cópia. |
| Inverte cada forma no intervalo de formas em torno de seu eixo horizontal ou vertical. |
| O método Group não é implementado no Project. |
| Move cada forma no intervalo de formas horizontalmente pelo número especificado de pontos. |
| Gira cada forma no intervalo de formas ao redor do eixo z pelo número especificado de graus. |
| Move cada forma no intervalo de formas verticalmente pelo número especificado de pontos. |
| Obtém um objeto Shape individual na coleção de intervalo de formas. |
| O método MergeShapes não é implementado no Project. |
| Copia a formatação do intervalo de formas. |
| O método Regroup não é implementado no Project. |
| O método RerouteConnections não é implementado no Project. |
| Dimensiona a altura do intervalo de formas por um fator especificado. |
| Dimensiona a largura do intervalo de formas por um fator especificado. |
| Seleciona cada forma em um intervalo de formas. |
| Aplica a formatação de uma forma padrão a cada forma no intervalo. |
| O método Ungroup não é implementado no Project. |
| Move o intervalo de formas na frente ou atrás de outras formas (ou seja, altera a posição na ordem z). |
Propriedades
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.
Comentários
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulte https://aka.ms/ContentUserFeedback.
Enviar e exibir comentários de