Método Shape.DrawRectangle (Visio)

Adiciona um retângulo à coleção Shapes de uma página, mestre ou grupo.

Sintaxe

expression. DrawRectangle( _x1_ , _y1_ , _x2_ , _y2_ )

Expressão Uma variável que representa um objeto Shape .

Parâmetros

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.

Valor de retorno

Forma

Comentários

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.

Exemplo

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

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.