Método Page.DrawRectangle (Visio)
Adiciona um retângulo à coleção Shapes de uma página, mestre ou grupo.
expression. DrawRectangle
( _x1_
, _y1_
, _x2_
, _y2_
)
Expressão Uma variável que representa um objeto Page .
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
x1 | Obrigatório | Double | A coordenada x de um canto da caixa largura-altura do retângulo. |
y1 | Obrigatório | Double | A coordenada y de um canto da caixa largura-altura do retângulo. |
x2 | Obrigatório | Double | A coordenada x do outro canto da caixa largura-altura do retângulo. |
y2 | Obrigatório | Double | A coordenada y do outro canto da caixa largura-altura do retângulo. |
Forma
Usar o método DrawRectangle equivale a usar a ferramenta Retângulo no aplicativo. Os argumentos estão em unidades de desenho internas com relação ao espaço de coordenadas da página, mestre ou grupo no qual o retângulo é colocado.
O exemplo a seguir mostra como desenhar um retângulo na página ativa.
Public Sub DrawRectangle_Example()
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawRectangle(1, 4, 4, 1)
End Sub
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.